import openssl-0.9.7-beta1

1 files changed, 8 insertions, 8 deletions

diff --git a/src/lib/libcrypto/des/asm/desboth.pl b/src/lib/libcrypto/des/asm/desboth.pl
index 8f939953a6..eec00886e4 100644
--- a/src/lib/libcrypto/des/asm/desboth.pl
+++ b/src/lib/libcrypto/des/asm/desboth.pl
@@ -1,9 +1,9 @@
-#!/usr/bin/perl
+#!/usr/local/bin/perl
 
 $L="edi";
 $R="esi";
 
-sub des_encrypt3
+sub DES_encrypt3
         {
         local($name,$enc)=@_;
 
@@ -44,18 +44,18 @@ sub des_encrypt3
                  &mov("edi",&wparam(2));
                  &mov("eax",&wparam(3));
                 }
-        &mov(&swtmp(2), (($enc)?"1":"0"));
+        &mov(&swtmp(2), (DWC(($enc)?"1":"0")));
         &mov(&swtmp(1), "eax");
         &mov(&swtmp(0), "ebx");
-        &call("des_encrypt2");
-        &mov(&swtmp(2), (($enc)?"0":"1"));
+        &call("DES_encrypt2");
+        &mov(&swtmp(2), (DWC(($enc)?"0":"1")));
         &mov(&swtmp(1), "edi");
         &mov(&swtmp(0), "ebx");
-        &call("des_encrypt2");
-        &mov(&swtmp(2), (($enc)?"1":"0"));
+        &call("DES_encrypt2");
+        &mov(&swtmp(2), (DWC(($enc)?"1":"0")));
         &mov(&swtmp(1), "esi");
         &mov(&swtmp(0), "ebx");
-        &call("des_encrypt2");
+        &call("DES_encrypt2");
 
         &stack_pop(3);
         &mov($L,&DWP(0,"ebx","",0));