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