diff options
Diffstat (limited to 'src/lib/libcrypto/objects/obj_dat.pl')
-rw-r--r-- | src/lib/libcrypto/objects/obj_dat.pl | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/src/lib/libcrypto/objects/obj_dat.pl b/src/lib/libcrypto/objects/obj_dat.pl index 7de2f77afd..c67f71c327 100644 --- a/src/lib/libcrypto/objects/obj_dat.pl +++ b/src/lib/libcrypto/objects/obj_dat.pl | |||
@@ -2,9 +2,7 @@ | |||
2 | 2 | ||
3 | # fixes bug in floating point emulation on sparc64 when | 3 | # fixes bug in floating point emulation on sparc64 when |
4 | # this script produces off-by-one output on sparc64 | 4 | # this script produces off-by-one output on sparc64 |
5 | eval 'use integer;'; | 5 | use integer; |
6 | |||
7 | print STDERR "Warning: perl module integer not found.\n" if ($@); | ||
8 | 6 | ||
9 | sub obj_cmp | 7 | sub obj_cmp |
10 | { | 8 | { |
@@ -150,13 +148,13 @@ for ($i=0; $i<$n; $i++) | |||
150 | @a=grep(defined($sn{$nid{$_}}),0 .. $n); | 148 | @a=grep(defined($sn{$nid{$_}}),0 .. $n); |
151 | foreach (sort { $sn{$nid{$a}} cmp $sn{$nid{$b}} } @a) | 149 | foreach (sort { $sn{$nid{$a}} cmp $sn{$nid{$b}} } @a) |
152 | { | 150 | { |
153 | push(@sn,sprintf("&(nid_objs[%2d]),/* \"$sn{$nid{$_}}\" */\n",$_)); | 151 | push(@sn,sprintf("%2d,\t/* \"$sn{$nid{$_}}\" */\n",$_)); |
154 | } | 152 | } |
155 | 153 | ||
156 | @a=grep(defined($ln{$nid{$_}}),0 .. $n); | 154 | @a=grep(defined($ln{$nid{$_}}),0 .. $n); |
157 | foreach (sort { $ln{$nid{$a}} cmp $ln{$nid{$b}} } @a) | 155 | foreach (sort { $ln{$nid{$a}} cmp $ln{$nid{$b}} } @a) |
158 | { | 156 | { |
159 | push(@ln,sprintf("&(nid_objs[%2d]),/* \"$ln{$nid{$_}}\" */\n",$_)); | 157 | push(@ln,sprintf("%2d,\t/* \"$ln{$nid{$_}}\" */\n",$_)); |
160 | } | 158 | } |
161 | 159 | ||
162 | @a=grep(defined($obj{$nid{$_}}),0 .. $n); | 160 | @a=grep(defined($obj{$nid{$_}}),0 .. $n); |
@@ -166,7 +164,7 @@ foreach (sort obj_cmp @a) | |||
166 | $v=$objd{$m}; | 164 | $v=$objd{$m}; |
167 | $v =~ s/L//g; | 165 | $v =~ s/L//g; |
168 | $v =~ s/,/ /g; | 166 | $v =~ s/,/ /g; |
169 | push(@ob,sprintf("&(nid_objs[%2d]),/* %-32s %s */\n",$_,$m,$v)); | 167 | push(@ob,sprintf("%2d,\t/* %-32s %s */\n",$_,$m,$v)); |
170 | } | 168 | } |
171 | 169 | ||
172 | print OUT <<'EOF'; | 170 | print OUT <<'EOF'; |
@@ -241,11 +239,11 @@ printf OUT "#define NUM_SN %d\n",$#sn+1; | |||
241 | printf OUT "#define NUM_LN %d\n",$#ln+1; | 239 | printf OUT "#define NUM_LN %d\n",$#ln+1; |
242 | printf OUT "#define NUM_OBJ %d\n\n",$#ob+1; | 240 | printf OUT "#define NUM_OBJ %d\n\n",$#ob+1; |
243 | 241 | ||
244 | printf OUT "static unsigned char lvalues[%d]={\n",$lvalues+1; | 242 | printf OUT "static const unsigned char lvalues[%d]={\n",$lvalues+1; |
245 | print OUT @lvalues; | 243 | print OUT @lvalues; |
246 | print OUT "};\n\n"; | 244 | print OUT "};\n\n"; |
247 | 245 | ||
248 | printf OUT "static ASN1_OBJECT nid_objs[NUM_NID]={\n"; | 246 | printf OUT "static const ASN1_OBJECT nid_objs[NUM_NID]={\n"; |
249 | foreach (@out) | 247 | foreach (@out) |
250 | { | 248 | { |
251 | if (length($_) > 75) | 249 | if (length($_) > 75) |
@@ -269,15 +267,15 @@ foreach (@out) | |||
269 | } | 267 | } |
270 | print OUT "};\n\n"; | 268 | print OUT "};\n\n"; |
271 | 269 | ||
272 | printf OUT "static ASN1_OBJECT *sn_objs[NUM_SN]={\n"; | 270 | printf OUT "static const unsigned int sn_objs[NUM_SN]={\n"; |
273 | print OUT @sn; | 271 | print OUT @sn; |
274 | print OUT "};\n\n"; | 272 | print OUT "};\n\n"; |
275 | 273 | ||
276 | printf OUT "static ASN1_OBJECT *ln_objs[NUM_LN]={\n"; | 274 | printf OUT "static const unsigned int ln_objs[NUM_LN]={\n"; |
277 | print OUT @ln; | 275 | print OUT @ln; |
278 | print OUT "};\n\n"; | 276 | print OUT "};\n\n"; |
279 | 277 | ||
280 | printf OUT "static ASN1_OBJECT *obj_objs[NUM_OBJ]={\n"; | 278 | printf OUT "static const unsigned int obj_objs[NUM_OBJ]={\n"; |
281 | print OUT @ob; | 279 | print OUT @ob; |
282 | print OUT "};\n\n"; | 280 | print OUT "};\n\n"; |
283 | 281 | ||