summaryrefslogtreecommitdiff
path: root/src/lib/libcrypto/objects/obj_dat.pl
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/libcrypto/objects/obj_dat.pl')
-rw-r--r--src/lib/libcrypto/objects/obj_dat.pl20
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
5use integer; 5eval 'use integer;';
6
7print STDERR "Warning: perl module integer not found.\n" if ($@);
6 8
7sub obj_cmp 9sub 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);
149foreach (sort { $sn{$nid{$a}} cmp $sn{$nid{$b}} } @a) 151foreach (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);
155foreach (sort { $ln{$nid{$a}} cmp $ln{$nid{$b}} } @a) 157foreach (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
170print OUT <<'EOF'; 172print OUT <<'EOF';
@@ -239,11 +241,11 @@ printf OUT "#define NUM_SN %d\n",$#sn+1;
239printf OUT "#define NUM_LN %d\n",$#ln+1; 241printf OUT "#define NUM_LN %d\n",$#ln+1;
240printf OUT "#define NUM_OBJ %d\n\n",$#ob+1; 242printf OUT "#define NUM_OBJ %d\n\n",$#ob+1;
241 243
242printf OUT "static const unsigned char lvalues[%d]={\n",$lvalues+1; 244printf OUT "static unsigned char lvalues[%d]={\n",$lvalues+1;
243print OUT @lvalues; 245print OUT @lvalues;
244print OUT "};\n\n"; 246print OUT "};\n\n";
245 247
246printf OUT "static const ASN1_OBJECT nid_objs[NUM_NID]={\n"; 248printf OUT "static ASN1_OBJECT nid_objs[NUM_NID]={\n";
247foreach (@out) 249foreach (@out)
248 { 250 {
249 if (length($_) > 75) 251 if (length($_) > 75)
@@ -267,15 +269,15 @@ foreach (@out)
267 } 269 }
268print OUT "};\n\n"; 270print OUT "};\n\n";
269 271
270printf OUT "static const unsigned int sn_objs[NUM_SN]={\n"; 272printf OUT "static ASN1_OBJECT *sn_objs[NUM_SN]={\n";
271print OUT @sn; 273print OUT @sn;
272print OUT "};\n\n"; 274print OUT "};\n\n";
273 275
274printf OUT "static const unsigned int ln_objs[NUM_LN]={\n"; 276printf OUT "static ASN1_OBJECT *ln_objs[NUM_LN]={\n";
275print OUT @ln; 277print OUT @ln;
276print OUT "};\n\n"; 278print OUT "};\n\n";
277 279
278printf OUT "static const unsigned int obj_objs[NUM_OBJ]={\n"; 280printf OUT "static ASN1_OBJECT *obj_objs[NUM_OBJ]={\n";
279print OUT @ob; 281print OUT @ob;
280print OUT "};\n\n"; 282print OUT "};\n\n";
281 283