openssl-x86_64-asm.patch

   1 diff -ur openssl-0.9.8l.org/crypto/md5/asm/md5-x86_64.pl openssl-0.9.8l/crypto/md5/asm/md5-x86_64.pl
   2 --- openssl-0.9.8l.org/crypto/md5/asm/md5-x86_64.pl     2007-11-11 14:34:06.000000000 +0100
   3 +++ openssl-0.9.8l/crypto/md5/asm/md5-x86_64.pl 2009-11-06 23:23:15.528442820 +0100
   4 @@ -19,6 +19,7 @@
   5  sub round1_step
   6  {
   7      my ($pos, $dst, $x, $y, $z, $k_next, $T_i, $s) = @_;
   8 +    $T_i = unpack("l",pack("l", hex($T_i))); # convert to 32-bit signed decimal
   9      $code .= " mov     0*4(%rsi),      %r10d           /* (NEXT STEP) X[0] */\n" if ($pos == -1);
  10      $code .= " mov     %edx,           %r11d           /* (NEXT STEP) z' = %edx */\n" if ($pos == -1);
  11      $code .= <<EOF;
  12 @@ -42,6 +43,7 @@
  13  sub round2_step
  14  {
  15      my ($pos, $dst, $x, $y, $z, $k_next, $T_i, $s) = @_;
  16 +    $T_i = unpack("l",pack("l", hex($T_i))); # convert to 32-bit signed decimal
  17      $code .= " mov     1*4(%rsi),      %r10d           /* (NEXT STEP) X[1] */\n" if ($pos == -1);
  18      $code .= " mov     %ecx,           %r11d           /* (NEXT STEP) y' = %ecx */\n" if ($pos == -1);
  19      $code .= <<EOF;
  20 @@ -65,6 +67,7 @@
  21  sub round3_step
  22  {
  23      my ($pos, $dst, $x, $y, $z, $k_next, $T_i, $s) = @_;
  24 +    $T_i = unpack("l",pack("l", hex($T_i))); # convert to 32-bit signed decimal
  25      $code .= " mov     5*4(%rsi),      %r10d           /* (NEXT STEP) X[5] */\n" if ($pos == -1);
  26      $code .= " mov     %ecx,           %r11d           /* (NEXT STEP) y' = %ecx */\n" if ($pos == -1);
  27      $code .= <<EOF;
  28 @@ -87,6 +90,7 @@
  29  sub round4_step
  30  {
  31      my ($pos, $dst, $x, $y, $z, $k_next, $T_i, $s) = @_;
  32 +    $T_i = unpack("l",pack("l", hex($T_i))); # convert to 32-bit signed decimal
  33      $code .= " mov     0*4(%rsi),      %r10d           /* (NEXT STEP) X[0] */\n" if ($pos == -1);
  34      $code .= " mov     \$0xffffffff,   %r11d\n" if ($pos == -1);
  35      $code .= " xor     %edx,           %r11d           /* (NEXT STEP) not z' = not %edx*/\n"
  36
  37 --- openssl-0.9.8l/crypto/sha/asm/sha1-x86_64.pl-x      2007-11-11 14:56:47.000000000 +0100
  38 +++ openssl-0.9.8l/crypto/sha/asm/sha1-x86_64.pl        2009-11-12 13:52:12.350872046 +0100
  39 @@ -143,7 +143,7 @@
  40  sub BODY_20_39 {
  41  my ($i,$a,$b,$c,$d,$e,$f)=@_;
  42  my $j=$i+1;
  43 -my $K=($i<40)?0x6ed9eba1:0xca62c1d6;
  44 +my $K=($i<40)?0x6ed9eba1:-0x359d3e2a;
  45  $code.=<<___ if ($i<79);
  46         lea     $K($xi,$e),$f
  47         mov     `4*($j%16)`(%rsp),$xi
  48 @@ -180,7 +180,7 @@
  49  my ($i,$a,$b,$c,$d,$e,$f)=@_;
  50  my $j=$i+1;
  51  $code.=<<___;
  52 -       lea     0x8f1bbcdc($xi,$e),$f
  53 +       lea     -0x70e44324($xi,$e),$f
  54         mov     `4*($j%16)`(%rsp),$xi
  55         mov     $b,$t0
  56         mov     $b,$t1