projects / packages / openssl.git / blame
| Commit | Line | Data |
|---|---|---|
| 710a3d68 AM |
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 |