Update perl asm scripts include paths for perlasm.
[openssl.git] / crypto / des / asm / crypt586.pl
index 51fb3dd..e36f7d4 100644 (file)
@@ -6,7 +6,8 @@
 # things perfect.
 #
 
-push(@INC,"perlasm","../../perlasm");
+$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
+push(@INC,"${dir}","${dir}../../perlasm");
 require "x86asm.pl";
 
 &asm_init($ARGV[0],"crypt586.pl");
@@ -22,7 +23,7 @@ sub fcrypt_body
        {
        local($name,$do_ip)=@_;
 
-       &function_begin($name,"EXTRN   _DES_SPtrans:DWORD");
+       &function_begin($name);
 
        &comment("");
        &comment("Load the 2 words");
@@ -32,8 +33,9 @@ sub fcrypt_body
        &xor(   $R,     $R);
 
        # PIC-ification:-)
-       if ($cpp)       { &picmeup("edx","DES_SPtrans");   }
-       else            { &lea("edx",&DWP("DES_SPtrans")); }
+       &picmeup("edx","DES_SPtrans");
+       #if ($cpp)      { &picmeup("edx","DES_SPtrans");   }
+       #else           { &lea("edx",&DWP("DES_SPtrans")); }
        &push("edx");   # becomes &swtmp(1)
        #
        &mov($trans,&wparam(1)); # reloaded with DES_SPtrans in D_ENCRYPT