&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
close SELF;
print $code;
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT; # force flush
+close STDOUT or die "error closing STDOUT"; # force flush
$code =~ s/fmovs.*$//gm;
print $code;
-close STDOUT; # ensure flush
+close STDOUT or die "error closing STDOUT"; # ensure flush
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\b(aes.*%xmm[0-9]+).*$/aesni($1)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
$code =~ s/\b(sha256[^\s]*)\s+(.*)/sha256op38($1,$2)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&emit_assembler();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
}
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
} }
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&cbc("BF_cbc_encrypt","BF_encrypt","BF_decrypt",1,4,5,3,-1,-1);
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub BF_encrypt
{
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub bn_mul_add_words
{
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub mul_add_c
{
open STDOUT,">$output" if $output;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
.end bn_sqr_comba4
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
EOF
$data =~ s/\`([^\`]*)\`/eval $1/gem;
print $data;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
}}}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
s/_dswap\s+(%r[0-9]+)/sprintf("rllg\t%s,%s,32",$1,$1) if($SIZE_T==4)/e;
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&emit_assembler();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
# flush
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
}
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval($1)/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&emit_assembler();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub CAST_encrypt {
local($name,$enc)=@_;
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # flush
+close STDOUT or die "error closing STDOUT"; # flush
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&fcrypt_body("fcrypt_body");
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub fcrypt_body
{
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub DES_encrypt_internal()
{
&emit_assembler();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&md5_block("md5_block_asm_data_order");
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub Np
{
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
}
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asciz("GHASH for x86, CRYPTOGAMS by <appro\@openssl.org>");
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
# A question was risen about choice of vanilla MMX. Or rather why wasn't
# SSE2 chosen instead? In addition to the fact that MMX runs on legacy
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
}
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print "\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print "\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$output and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$output = pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT; # force flush
+close STDOUT or die "error closing STDOUT"; # force flush
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub RC5_32_encrypt
{
&ripemd160_block("ripemd160_block_asm_data_order");
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
sub Xv
{
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT; # force flush
+close STDOUT or die "error closing STDOUT"; # force flush
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_, "\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
$output=pop and open STDOUT,">$output";
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,$/;
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
.asciiz "SHA1 for MIPS, CRYPTOGAMS by <appro\@openssl.org>"
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&unalignaddr($1,$2,$3,$4)
/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
close SELF;
print $code;
-close STDOUT; # enforce flush
+close STDOUT or die "error closing STDOUT"; # enforce flush
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
___
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/(srlg\s+)(%r[0-9]+),/$1$2,$2,/gm;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
print $_,"\n";
}
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
&function_end_B("whirlpool_block_mmx");
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
gen_random("rdrand");
gen_random("rdseed");
-close STDOUT; # flush
+close STDOUT or die "error closing STDOUT"; # flush
&asm_finish();
-close STDOUT;
+close STDOUT or die "error closing STDOUT";
projects / oweals / openssl.git / commitdiff