Codebase list openssl / 218e740
Do not silently truncate files on perlasm errors If one of the perlasm xlate drivers crashes, OpenSSL's build will currently swallow the error and silently truncate the output to however far the driver got. This will hopefully fail to build, but better to check such things. Handle this by checking for errors when closing STDOUT (which is a pipe to the xlate driver). This is the OpenSSL 1.1.1 version of https://github.com/openssl/openssl/pull/10883 and https://github.com/openssl/openssl/pull/10930. Reviewed-by: Mark J. Cox <mark@awe.com> Reviewed-by: Paul Dale David Benjamin <davidben@google.com> (Merged from https://github.com/openssl/openssl/pull/10931) David Benjamin authored 4 years ago Pauli committed 4 years ago
160 changed file(s) with 163 addition(s) and 163 deletion(s). Raw diff Collapse all Expand all
+1
-1
crypto/aes/asm/aes-armv4.pl less more
12411241 close SELF;
12421242
12431243 print $code;
1244 close STDOUT; # enforce flush
1244 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/aes/asm/aes-c64xplus.pl less more
13781378 ___
13791379
13801380 print $code;
1381 close STDOUT;
1381 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aes-mips.pl less more
21662166 print $_,"\n";
21672167 }
21682168
2169 close STDOUT;
2169 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aes-parisc.pl less more
10341034
10351035 print $_,"\n";
10361036 }
1037 close STDOUT;
1037 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aes-ppc.pl less more
14551455
14561456 $code =~ s/\`([^\`]*)\`/eval $1/gem;
14571457 print $code;
1458 close STDOUT;
1458 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aes-s390x.pl less more
22782278
22792279 $code =~ s/\`([^\`]*)\`/eval $1/gem;
22802280 print $code;
2281 close STDOUT; # force flush
2281 close STDOUT or die "error closing STDOUT: $!"; # force flush
+1
-1
crypto/aes/asm/aes-sparcv9.pl less more
11881188 $code =~ s/fmovs.*$//gm;
11891189
11901190 print $code;
1191 close STDOUT; # ensure flush
1191 close STDOUT or die "error closing STDOUT: $!"; # ensure flush
+1
-1
crypto/aes/asm/aesfx-sparcv9.pl less more
12661266 print $_,"\n";
12671267 }
12681268
1269 close STDOUT;
1269 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesni-mb-x86_64.pl less more
14701470 $code =~ s/\b(aes.*%xmm[0-9]+).*$/aesni($1)/gem;
14711471
14721472 print $code;
1473 close STDOUT;
1473 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesni-sha1-x86_64.pl less more
21422142
21432143 print $_,"\n";
21442144 }
2145 close STDOUT;
2145 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesni-sha256-x86_64.pl less more
17981798 $code =~ s/\`([^\`]*)\`/eval $1/gem;
17991799 $code =~ s/\b(sha256[^\s]*)\s+(.*)/sha256op38($1,$2)/gem;
18001800 print $code;
1801 close STDOUT;
1801 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesni-x86.pl less more
34113411
34123412 &asm_finish();
34133413
3414 close STDOUT;
3414 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesni-x86_64.pl less more
51535153
51545154 print $code;
51555155
5156 close STDOUT;
5156 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesp8-ppc.pl less more
38033803 print $_,"\n";
38043804 }
38053805
3806 close STDOUT;
3806 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aest4-sparcv9.pl less more
925925
926926 &emit_assembler();
927927
928 close STDOUT;
928 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/aesv8-armx.pl less more
10071007 }
10081008 }
10091009
1010 close STDOUT;
1010 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/bsaes-armv7.pl less more
24872487
24882488 print $code;
24892489
2490 close STDOUT;
2490 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/vpaes-armv8.pl less more
12731273 } }
12741274 print $code;
12751275
1276 close STDOUT;
1276 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/vpaes-ppc.pl less more
15901590 print $_,"\n";
15911591 }
15921592
1593 close STDOUT;
1593 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/vpaes-x86.pl less more
912912
913913 &asm_finish();
914914
915 close STDOUT;
915 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/aes/asm/vpaes-x86_64.pl less more
12371237
12381238 print $code;
12391239
1240 close STDOUT;
1240 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/alphacpuid.pl less more
253253 ___
254254 }
255255
256 close STDOUT;
256 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/arm64cpuid.pl less more
143143 ___
144144
145145 print $code;
146 close STDOUT;
146 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/armv4cpuid.pl less more
292292 ___
293293
294294 print $code;
295 close STDOUT;
295 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bf/asm/bf-586.pl less more
3131 &cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1);
3232 &asm_finish();
3333
34 close STDOUT;
34 close STDOUT or die "error closing STDOUT: $!";
3535
3636 sub BF_encrypt
3737 {
+1
-1
crypto/bn/asm/alpha-mont.pl less more
324324 ___
325325
326326 print $code;
327 close STDOUT;
327 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/armv4-gf2m.pl less more
328328
329329 print $_,"\n";
330330 }
331 close STDOUT; # enforce flush
331 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/bn/asm/armv4-mont.pl less more
753753 print $_,"\n";
754754 }
755755
756 close STDOUT;
756 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/armv8-mont.pl less more
15101510
15111511 print $code;
15121512
1513 close STDOUT;
1513 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/bn-586.pl less more
3030
3131 &asm_finish();
3232
33 close STDOUT;
33 close STDOUT or die "error closing STDOUT: $!";
3434
3535 sub bn_mul_add_words
3636 {
+1
-1
crypto/bn/asm/c64xplus-gf2m.pl less more
156156 ___
157157
158158 print $code;
159 close STDOUT;
159 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/co-586.pl less more
2121
2222 &asm_finish();
2323
24 close STDOUT;
24 close STDOUT or die "error closing STDOUT: $!";
2525
2626 sub mul_add_c
2727 {
+1
-1
crypto/bn/asm/ia64-mont.pl less more
856856
857857 open STDOUT,">$output" if $output;
858858 print $code;
859 close STDOUT;
859 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/mips-mont.pl less more
429429 $code =~ s/\`([^\`]*)\`/eval $1/gem;
430430
431431 print $code;
432 close STDOUT;
432 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/mips.pl less more
22592259 .end bn_sqr_comba4
22602260 ___
22612261 print $code;
2262 close STDOUT;
2262 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/parisc-mont.pl less more
10021002
10031003 print $_,"\n";
10041004 }
1005 close STDOUT;
1005 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/ppc-mont.pl less more
19861986
19871987 $code =~ s/\`([^\`]*)\`/eval $1/gem;
19881988 print $code;
1989 close STDOUT;
1989 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/ppc.pl less more
20082008 EOF
20092009 $data =~ s/\`([^\`]*)\`/eval $1/gem;
20102010 print $data;
2011 close STDOUT;
2011 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/ppc64-mont.pl less more
16481648
16491649 $code =~ s/\`([^\`]*)\`/eval $1/gem;
16501650 print $code;
1651 close STDOUT;
1651 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/rsaz-avx2.pl less more
19781978 ___
19791979 }}}
19801980
1981 close STDOUT;
1981 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/rsaz-x86_64.pl less more
24272427
24282428 $code =~ s/\`([^\`]*)\`/eval $1/gem;
24292429 print $code;
2430 close STDOUT;
2430 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/s390x-gf2m.pl less more
224224
225225 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
226226 print $code;
227 close STDOUT;
227 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/s390x-mont.pl less more
280280 s/_dswap\s+(%r[0-9]+)/sprintf("rllg\t%s,%s,32",$1,$1) if($SIZE_T==4)/e;
281281 print $_,"\n";
282282 }
283 close STDOUT;
283 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/sparct4-mont.pl less more
12241224
12251225 &emit_assembler();
12261226
1227 close STDOUT;
1227 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/sparcv9-gf2m.pl less more
196196
197197 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
198198 print $code;
199 close STDOUT;
199 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/sparcv9-mont.pl less more
616616 ___
617617 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
618618 print $code;
619 close STDOUT;
619 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/sparcv9a-mont.pl less more
883883
884884 print $code;
885885 # flush
886 close STDOUT;
886 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/via-mont.pl less more
247247
248248 &asm_finish();
249249
250 close STDOUT;
250 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/vis3-mont.pl less more
380380 print $_,"\n";
381381 }
382382
383 close STDOUT;
383 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/x86-gf2m.pl less more
321321
322322 &asm_finish();
323323
324 close STDOUT;
324 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/x86-mont.pl less more
627627
628628 &asm_finish();
629629
630 close STDOUT;
630 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/x86_64-gf2m.pl less more
420420
421421 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
422422 print $code;
423 close STDOUT;
423 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/x86_64-mont.pl less more
15881588 }
15891589
15901590 print $code;
1591 close STDOUT;
1591 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/bn/asm/x86_64-mont5.pl less more
39593959 $code =~ s/\`([^\`]*)\`/eval($1)/gem;
39603960
39613961 print $code;
3962 close STDOUT;
3962 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/c64xpluscpuid.pl less more
283283 ___
284284
285285 print $code;
286 close STDOUT;
286 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/camellia/asm/cmll-x86.pl less more
11461146
11471147 &asm_finish();
11481148
1149 close STDOUT;
1149 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/camellia/asm/cmll-x86_64.pl less more
11491149
11501150 $code =~ s/\`([^\`]*)\`/eval $1/gem;
11511151 print $code;
1152 close STDOUT;
1152 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/camellia/asm/cmllt4-sparcv9.pl less more
935935
936936 &emit_assembler();
937937
938 close STDOUT;
938 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/cast/asm/cast-586.pl less more
4545
4646 &asm_finish();
4747
48 close STDOUT;
48 close STDOUT or die "error closing STDOUT: $!";
4949
5050 sub CAST_encrypt {
5151 local($name,$enc)=@_;
+1
-1
crypto/chacha/asm/chacha-armv4.pl less more
11561156
11571157 print $_,"\n";
11581158 }
1159 close STDOUT;
1159 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/chacha/asm/chacha-armv8.pl less more
11401140
11411141 print $_,"\n";
11421142 }
1143 close STDOUT; # flush
1143 close STDOUT or die "error closing STDOUT: $!"; # flush
+1
-1
crypto/chacha/asm/chacha-c64xplus.pl less more
922922 ___
923923
924924 print $code;
925 close STDOUT;
925 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/chacha/asm/chacha-ppc.pl less more
13441344 print $_,"\n";
13451345 }
13461346
1347 close STDOUT;
1347 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/chacha/asm/chacha-s390x.pl less more
322322
323323 print $_,"\n";
324324 }
325 close STDOUT;
325 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/chacha/asm/chacha-x86.pl less more
11511151
11521152 &asm_finish();
11531153
1154 close STDOUT;
1154 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/chacha/asm/chacha-x86_64.pl less more
40014001 print $_,"\n";
40024002 }
40034003
4004 close STDOUT;
4004 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/des/asm/crypt586.pl less more
2424 &fcrypt_body("fcrypt_body");
2525 &asm_finish();
2626
27 close STDOUT;
27 close STDOUT or die "error closing STDOUT: $!";
2828
2929 sub fcrypt_body
3030 {
+1
-1
crypto/des/asm/des-586.pl less more
4646
4747 &asm_finish();
4848
49 close STDOUT;
49 close STDOUT or die "error closing STDOUT: $!";
5050
5151 sub DES_encrypt_internal()
5252 {
+1
-1
crypto/des/asm/dest4-sparcv9.pl less more
623623
624624 &emit_assembler();
625625
626 close STDOUT;
626 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ec/asm/ecp_nistz256-armv4.pl less more
18481848
18491849 print $_,"\n";
18501850 }
1851 close STDOUT; # enforce flush
1851 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/ec/asm/ecp_nistz256-armv8.pl less more
18701870
18711871 print $_,"\n";
18721872 }
1873 close STDOUT; # enforce flush
1873 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/ec/asm/ecp_nistz256-avx2.pl less more
20762076 print $_,"\n";
20772077 }
20782078
2079 close STDOUT;
2079 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ec/asm/ecp_nistz256-ppc64.pl less more
23782378
23792379 print $_,"\n";
23802380 }
2381 close STDOUT; # enforce flush
2381 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/ec/asm/ecp_nistz256-sparcv9.pl less more
30563056 print $_,"\n";
30573057 }
30583058
3059 close STDOUT;
3059 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ec/asm/ecp_nistz256-x86.pl less more
18581858
18591859 &asm_finish();
18601860
1861 close STDOUT;
1861 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ec/asm/ecp_nistz256-x86_64.pl less more
47354735
47364736 $code =~ s/\`([^\`]*)\`/eval $1/gem;
47374737 print $code;
4738 close STDOUT;
4738 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ec/asm/x25519-ppc64.pl less more
820820
821821 $code =~ s/\`([^\`]*)\`/eval $1/gem;
822822 print $code;
823 close STDOUT;
823 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ec/asm/x25519-x86_64.pl less more
11271127
11281128 $code =~ s/\`([^\`]*)\`/eval $1/gem;
11291129 print $code;
1130 close STDOUT;
1130 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/md5/asm/md5-586.pl less more
4242 &md5_block("md5_block_asm_data_order");
4343 &asm_finish();
4444
45 close STDOUT;
45 close STDOUT or die "error closing STDOUT: $!";
4646
4747 sub Np
4848 {
+1
-1
crypto/md5/asm/md5-sparcv9.pl less more
433433 print $_,"\n";
434434 }
435435
436 close STDOUT;
436 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/md5/asm/md5-x86_64.pl less more
389389
390390 print $code;
391391
392 close STDOUT;
392 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/aesni-gcm-x86_64.pl less more
11031103
11041104 print $code;
11051105
1106 close STDOUT;
1106 close STDOUT or die "error closing STDOUT: $!";
+2
-2
crypto/modes/asm/ghash-alpha.pl less more
462462 ___
463463 $output=pop and open STDOUT,">$output";
464464 print $code;
465 close STDOUT;
466
465 close STDOUT or die "error closing STDOUT: $!";
466
+1
-1
crypto/modes/asm/ghash-armv4.pl less more
547547
548548 print $_,"\n";
549549 }
550 close STDOUT; # enforce flush
550 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/modes/asm/ghash-c64xplus.pl less more
243243 ___
244244
245245 print $code;
246 close STDOUT;
246 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/ghash-ia64.pl less more
466466 $code =~ s/\`([^\`]*)\`/eval $1/gem;
467467
468468 print $code;
469 close STDOUT;
469 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/ghash-parisc.pl less more
744744 print $_,"\n";
745745 }
746746
747 close STDOUT;
747 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/ghash-s390x.pl less more
258258
259259 $code =~ s/\`([^\`]*)\`/eval $1/gem;
260260 print $code;
261 close STDOUT;
261 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/ghash-sparcv9.pl less more
577577 print $_,"\n";
578578 }
579579
580 close STDOUT;
580 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/ghash-x86.pl less more
13771377 &asciz("GHASH for x86, CRYPTOGAMS by <appro\@openssl.org>");
13781378 &asm_finish();
13791379
1380 close STDOUT;
1380 close STDOUT or die "error closing STDOUT: $!";
13811381
13821382 # A question was risen about choice of vanilla MMX. Or rather why wasn't
13831383 # SSE2 chosen instead? In addition to the fact that MMX runs on legacy
+1
-1
crypto/modes/asm/ghash-x86_64.pl less more
18141814
18151815 print $code;
18161816
1817 close STDOUT;
1817 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/modes/asm/ghashp8-ppc.pl less more
667667 print $_,"\n";
668668 }
669669
670 close STDOUT; # enforce flush
670 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/modes/asm/ghashv8-armx.pl less more
777777 }
778778 }
779779
780 close STDOUT; # enforce flush
780 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+2
-2
crypto/pariscid.pl less more
271271
272272 print $_,"\n";
273273 }
274 close STDOUT;
275
274 close STDOUT or die "error closing STDOUT: $!";
275
+1
-1
crypto/perlasm/arm-xlate.pl less more
173173 print "\n";
174174 }
175175
176 close STDOUT;
176 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/perlasm/ppc-xlate.pl less more
340340 print "\n";
341341 }
342342
343 close STDOUT;
343 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/perlasm/x86_64-xlate.pl less more
12151215 print "\n$current_segment\tENDS\n" if ($current_segment && $masm);
12161216 print "END\n" if ($masm);
12171217
1218 close STDOUT;
1218 close STDOUT or die "error closing STDOUT: $!";
12191219
12201220 #################################################
12211221 # Cross-reference x86_64 ABI "card"
+1
-1
crypto/poly1305/asm/poly1305-armv4.pl less more
12491249
12501250 print $_,"\n";
12511251 }
1252 close STDOUT; # enforce flush
1252 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/poly1305/asm/poly1305-armv8.pl less more
942942
943943 print $_,"\n";
944944 }
945 close STDOUT;
945 close STDOUT or die "error closing STDOUT: $!";
+2
-2
crypto/poly1305/asm/poly1305-mips.pl less more
432432
433433 $output=pop and open STDOUT,">$output";
434434 print $code;
435 close STDOUT;
436
435 close STDOUT or die "error closing STDOUT: $!";
436
+1
-1
crypto/poly1305/asm/poly1305-ppc.pl less more
641641
642642 $code =~ s/\`([^\`]*)\`/eval $1/gem;
643643 print $code;
644 close STDOUT;
644 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/poly1305/asm/poly1305-ppcfp.pl less more
735735
736736 $code =~ s/\`([^\`]*)\`/eval $1/gem;
737737 print $code;
738 close STDOUT;
738 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/poly1305/asm/poly1305-s390x.pl less more
223223 $code =~ s/\b(srlg\s+)(%r[0-9]+\s*,)\s*([0-9]+)/$1$2$2$3/gm;
224224
225225 print $code;
226 close STDOUT;
226 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/poly1305/asm/poly1305-sparcv9.pl less more
11161116 print $_,"\n";
11171117 }
11181118
1119 close STDOUT;
1119 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/poly1305/asm/poly1305-x86.pl less more
18111811
18121812 &asm_finish();
18131813
1814 close STDOUT;
1814 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/poly1305/asm/poly1305-x86_64.pl less more
41794179
41804180 print $_,"\n";
41814181 }
4182 close STDOUT;
4182 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/ppccpuid.pl less more
378378
379379 $code =~ s/\`([^\`]*)\`/eval $1/gem;
380380 print $code;
381 close STDOUT;
381 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/rc4/asm/rc4-586.pl less more
422422
423423 &asm_finish();
424424
425 close STDOUT;
425 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/rc4/asm/rc4-c64xplus.pl less more
188188 $output=pop;
189189 open STDOUT,">$output";
190190 print $code;
191 close STDOUT;
191 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/rc4/asm/rc4-md5-x86_64.pl less more
659659
660660 print $code;
661661
662 close STDOUT;
662 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/rc4/asm/rc4-parisc.pl less more
329329
330330 print $_,"\n";
331331 }
332 close STDOUT;
332 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/rc4/asm/rc4-s390x.pl less more
237237 ___
238238
239239 print $code;
240 close STDOUT; # force flush
240 close STDOUT or die "error closing STDOUT: $!"; # force flush
+1
-1
crypto/rc4/asm/rc4-x86_64.pl less more
697697
698698 print $code;
699699
700 close STDOUT;
700 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/rc5/asm/rc5-586.pl less more
3131 &cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
3232 &asm_finish();
3333
34 close STDOUT;
34 close STDOUT or die "error closing STDOUT: $!";
3535
3636 sub RC5_32_encrypt
3737 {
+1
-1
crypto/ripemd/asm/rmd-586.pl less more
6969 &ripemd160_block("ripemd160_block_asm_data_order");
7070 &asm_finish();
7171
72 close STDOUT;
72 close STDOUT or die "error closing STDOUT: $!";
7373
7474 sub Xv
7575 {
+1
-1
crypto/s390xcpuid.pl less more
417417
418418 $code =~ s/\`([^\`]*)\`/eval $1/gem;
419419 print $code;
420 close STDOUT; # force flush
420 close STDOUT or die "error closing STDOUT: $!"; # force flush
+1
-1
crypto/sha/asm/keccak1600-armv4.pl less more
16021602 print $_,"\n";
16031603 }
16041604
1605 close STDOUT; # enforce flush
1605 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/sha/asm/keccak1600-armv8.pl less more
876876 print $_,"\n";
877877 }
878878
879 close STDOUT;
879 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-avx2.pl less more
478478 $output=pop;
479479 open STDOUT,">$output";
480480 print $code;
481 close STDOUT;
481 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-avx512.pl less more
547547 $output=pop;
548548 open STDOUT,">$output";
549549 print $code;
550 close STDOUT;
550 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-avx512vl.pl less more
388388 $output=pop;
389389 open STDOUT,">$output";
390390 print $code;
391 close STDOUT;
391 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-c64x.pl less more
881881 $output=pop;
882882 open STDOUT,">$output";
883883 print $code;
884 close STDOUT;
884 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-mmx.pl less more
436436
437437 &asm_finish();
438438
439 close STDOUT;
439 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-ppc64.pl less more
754754
755755 $code =~ s/\`([^\`]*)\`/eval $1/gem;
756756 print $code;
757 close STDOUT;
757 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-s390x.pl less more
556556 $code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
557557
558558 print $code;
559 close STDOUT;
559 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600-x86_64.pl less more
605605 print $_, "\n";
606606 }
607607
608 close STDOUT;
608 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/keccak1600p8-ppc.pl less more
846846 print $_,"\n";
847847 }
848848
849 close STDOUT;
849 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-586.pl less more
14871487
14881488 &asm_finish();
14891489
1490 close STDOUT;
1490 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-alpha.pl less more
325325 ___
326326 $output=pop and open STDOUT,">$output";
327327 print $code;
328 close STDOUT;
328 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-armv4-large.pl less more
738738 print $_,$/;
739739 }
740740
741 close STDOUT; # enforce flush
741 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/sha/asm/sha1-armv8.pl less more
360360 print $_,"\n";
361361 }
362362
363 close STDOUT;
363 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-c64xplus.pl less more
333333 ___
334334
335335 print $code;
336 close STDOUT;
336 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-mb-x86_64.pl less more
16241624 print $_,"\n";
16251625 }
16261626
1627 close STDOUT;
1627 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-mips.pl less more
457457 .asciiz "SHA1 for MIPS, CRYPTOGAMS by <appro\@openssl.org>"
458458 ___
459459 print $code;
460 close STDOUT;
460 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-parisc.pl less more
275275
276276 print $_,"\n";
277277 }
278 close STDOUT;
278 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-ppc.pl less more
347347
348348 $code =~ s/\`([^\`]*)\`/eval $1/gem;
349349 print $code;
350 close STDOUT;
350 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-s390x.pl less more
245245 $code =~ s/\`([^\`]*)\`/eval $1/gem;
246246
247247 print $code;
248 close STDOUT;
248 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-sparcv9.pl less more
430430 print $_,"\n";
431431 }
432432
433 close STDOUT;
433 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-sparcv9a.pl less more
604604 &unalignaddr($1,$2,$3,$4)
605605 /gem;
606606 print $code;
607 close STDOUT;
607 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha1-thumb.pl less more
262262 ___
263263
264264 print $code;
265 close STDOUT; # enforce flush
265 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/sha/asm/sha1-x86_64.pl less more
21282128
21292129 print $_,"\n";
21302130 }
2131 close STDOUT;
2131 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha256-586.pl less more
12921292
12931293 &asm_finish();
12941294
1295 close STDOUT;
1295 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha256-armv4.pl less more
728728 print $_,"\n";
729729 }
730730
731 close STDOUT; # enforce flush
731 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/sha/asm/sha256-c64xplus.pl less more
316316 ___
317317
318318 print $code;
319 close STDOUT;
319 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha256-mb-x86_64.pl less more
16101610 print $_,"\n";
16111611 }
16121612
1613 close STDOUT;
1613 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-586.pl less more
921921
922922 &asm_finish();
923923
924 close STDOUT;
924 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-armv4.pl less more
664664 close SELF;
665665
666666 print $code;
667 close STDOUT; # enforce flush
667 close STDOUT or die "error closing STDOUT: $!"; # enforce flush
+1
-1
crypto/sha/asm/sha512-armv8.pl less more
901901 print $_,"\n";
902902 }
903903
904 close STDOUT;
904 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-c64xplus.pl less more
434434 ___
435435
436436 print $code;
437 close STDOUT;
437 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-mips.pl less more
517517
518518 $code =~ s/\`([^\`]*)\`/eval $1/gem;
519519 print $code;
520 close STDOUT;
520 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-parisc.pl less more
803803 print $_,"\n";
804804 }
805805
806 close STDOUT;
806 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-ppc.pl less more
795795
796796 $code =~ s/\`([^\`]*)\`/eval $1/gem;
797797 print $code;
798 close STDOUT;
798 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-s390x.pl less more
320320 $code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
321321
322322 print $code;
323 close STDOUT;
323 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-sparcv9.pl less more
853853 print $_,"\n";
854854 }
855855
856 close STDOUT;
856 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512-x86_64.pl less more
25542554
25552555 print $_,"\n";
25562556 }
2557 close STDOUT;
2557 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/sha/asm/sha512p8-ppc.pl less more
416416
417417 $code =~ s/\`([^\`]*)\`/eval $1/gem;
418418 print $code;
419 close STDOUT;
419 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/whrlpool/asm/wp-mmx.pl less more
503503 &function_end_B("whirlpool_block_mmx");
504504 &asm_finish();
505505
506 close STDOUT;
506 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/whrlpool/asm/wp-x86_64.pl less more
613613
614614 $code =~ s/\`([^\`]*)\`/eval $1/gem;
615615 print $code;
616 close STDOUT;
616 close STDOUT or die "error closing STDOUT: $!";
+1
-1
crypto/x86_64cpuid.pl less more
507507 gen_random("rdrand");
508508 gen_random("rdseed");
509509
510 close STDOUT; # flush
510 close STDOUT or die "error closing STDOUT: $!"; # flush
+1
-1
crypto/x86cpuid.pl less more
505505
506506 &asm_finish();
507507
508 close STDOUT;
508 close STDOUT or die "error closing STDOUT: $!";