Avoid linking error for InitializeCriticalSectionAndSpinCount().

[oweals/openssl.git] / crypto / md5 / asm / md5-586.pl

diff --git a/crypto/md5/asm/md5-586.pl b/crypto/md5/asm/md5-586.pl
index b1238e03859e413ae074353a721c815a6a2ffa31..15e14864d1950d5fa670291d8e0bebb90cd0db05 100644 (file)
--- a/crypto/md5/asm/md5-586.pl
+++ b/crypto/md5/asm/md5-586.pl
@@ -1,4 +1,11 @@
-#!/usr/local/bin/perl
+#! /usr/bin/env perl
+# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
+#
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 
 # Normal is the
 # md5_block_x86(MD5_CTX *c, ULONG *X);
@@ -7,10 +14,14 @@
 
 $normal=0;
 
-push(@INC,"perlasm","../../perlasm");
+$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
+push(@INC,"${dir}","${dir}../../perlasm");
 require "x86asm.pl";
 
-&asm_init($ARGV[0],$0);
+$output=pop;
+open STDOUT,">$output";
+
+&asm_init($ARGV[0]);
 
 $A="eax";
 $B="ebx";
@@ -29,9 +40,11 @@ $X="esi";
  0, 7, 14, 5, 12, 3, 10, 1, 8, 15, 6, 13, 4, 11, 2, 9, # R3
  );
 
-&md5_block("md5_block_x86");
+&md5_block("md5_block_asm_data_order");
 &asm_finish();
 
+close STDOUT;
+
 sub Np
        {
        local($p)=@_;
@@ -44,7 +57,7 @@ sub R0
        local($pos,$a,$b,$c,$d,$K,$ki,$s,$t)=@_;
 
        &mov($tmp1,$C)  if $pos < 0;
-        &mov($tmp2,&DWP($xo[$ki]*4,$K,"",0)) if $pos < 0; # very first one 
+       &mov($tmp2,&DWP($xo[$ki]*4,$K,"",0)) if $pos < 0; # very first one
 
        # body proper
 
@@ -54,16 +67,17 @@ sub R0
        &and($tmp1,$b); # F function - part 3
        &lea($a,&DWP($t,$a,$tmp2,1));
 
-       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if ($pos != 2);
        &xor($tmp1,$d); # F function - part 4
+       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if ($pos != 2);
 
        &add($a,$tmp1);
+
+       &rotl($a,$s);
+
        &mov($tmp1,&Np($c)) if $pos < 1;        # next tmp1 for R0
        &mov($tmp1,&Np($c)) if $pos == 1;       # next tmp1 for R1
 
-       &rotl($a,$s);
        &add($a,$b);
-
        }
 
 sub R1
@@ -72,13 +86,12 @@ sub R1
 
        &comment("R1 $ki");
 
-       &lea($a,&DWP($t,$a,$tmp2,1));
-
        &xor($tmp1,$b); # G function - part 2
        &and($tmp1,$d); # G function - part 3
+       &lea($a,&DWP($t,$a,$tmp2,1));
 
-       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if ($pos != 2);
        &xor($tmp1,$c);                 # G function - part 4
+       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if ($pos != 2);
 
        &add($a,$tmp1);
        &mov($tmp1,&Np($c)) if $pos < 1;        # G function - part 1
@@ -100,13 +113,13 @@ if (($n & 1) == 0)
        # make sure to do 'D' first, not 'B', else we clash with
        # the last add from the previous round.
 
-        &xor($tmp1,$d); # H function - part 2
+       &xor($tmp1,$d); # H function - part 2
 
        &xor($tmp1,$b); # H function - part 3
-        &lea($a,&DWP($t,$a,$tmp2,1));
+       &lea($a,&DWP($t,$a,$tmp2,1));
 
        &add($a,$tmp1);
-        &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0));
+       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0));
 
        &rotl($a,$s);
 
@@ -118,17 +131,17 @@ else
        # make sure to do 'D' first, not 'B', else we clash with
        # the last add from the previous round.
 
-        &lea($a,&DWP($t,$a,$tmp2,1));
-
        &add($b,$c);                    # MOVED FORWARD
-        &xor($tmp1,$d); # H function - part 2
+       &xor($tmp1,$d); # H function - part 2
+
+       &lea($a,&DWP($t,$a,$tmp2,1));
 
        &xor($tmp1,$b); # H function - part 3
-        &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if ($pos != 2);
+       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if ($pos != 2);
 
        &add($a,$tmp1);
-        &mov($tmp1,&Np($c)) if $pos < 1;       # H function - part 1
-        &mov($tmp1,-1) if $pos == 1;           # I function - part 1
+       &mov($tmp1,&Np($c)) if $pos < 1;        # H function - part 1
+       &mov($tmp1,-1) if $pos == 1;            # I function - part 1
 
        &rotl($a,$s);
 
@@ -146,21 +159,21 @@ sub R3
        &xor($tmp1,$d) if $pos < 0;     # I function - part 2
 
        &or($tmp1,$b);                          # I function - part 3
-        &lea($a,&DWP($t,$a,$tmp2,1));
+       &lea($a,&DWP($t,$a,$tmp2,1));
 
        &xor($tmp1,$c);                         # I function - part 4
-        &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0)) if $pos != 2; # load X/k value
-        &mov($tmp2,&wparam(0)) if $pos == 2;
+       &mov($tmp2,&DWP($xo[$ki+1]*4,$K,"",0))  if $pos != 2; # load X/k value
+       &mov($tmp2,&wparam(0)) if $pos == 2;
 
        &add($a,$tmp1);
-        &mov($tmp1,-1) if $pos < 1;    # H function - part 1
-        &add($K,64) if $pos >=1 && !$normal;
+       &mov($tmp1,-1) if $pos < 1;     # H function - part 1
+       &add($K,64) if $pos >=1 && !$normal;
 
        &rotl($a,$s);
 
        &xor($tmp1,&Np($d)) if $pos <= 0;       # I function - part = first time
        &mov($tmp1,&DWP( 0,$tmp2,"",0)) if $pos > 0;
-        &add($a,$b);
+       &add($a,$b);
        }
 
 
@@ -182,6 +195,7 @@ sub md5_block
         &mov($X,       &wparam(1)); # esi
        &mov($C,        &wparam(2));
         &push("ebp");
+       &shl($C,        6);
        &push("ebx");
         &add($C,       $X); # offset we end at
        &sub($C,        64);
@@ -291,7 +305,7 @@ sub md5_block
         &mov(&DWP(12,$tmp2,"",0),$D);
 
        &cmp($tmp1,$X) unless $normal;                  # check count
-        &jge(&label("start")) unless $normal;
+        &jae(&label("start")) unless $normal;
 
        &pop("eax"); # pop the temp variable off the stack
         &pop("ebx");