bmks/parsec/openssl.diff

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