Unified - adapt the generation of rc5 assembler to use GENERATE
[openssl.git] / crypto / rc5 / asm / rc5-586.pl
index 61ac6effc69c01e73debe7667ce644e044c81469..a0d85f2ba95388c7288671838e56ee6b7951a9a6 100644 (file)
@@ -5,6 +5,9 @@ push(@INC,"${dir}","${dir}../../perlasm");
 require "x86asm.pl";
 require "cbc.pl";
 
+$output = pop;
+open STDOUT,">$output";
+
 &asm_init($ARGV[0],"rc5-586.pl");
 
 $RC5_MAX_ROUNDS=16;
@@ -22,6 +25,8 @@ $tmp4="edx";
 &cbc("RC5_32_cbc_encrypt","RC5_32_encrypt","RC5_32_decrypt",0,4,5,3,-1,-1);
 &asm_finish();
 
+close STDOUT;
+
 sub RC5_32_encrypt
        {
        local($name,$enc)=@_;