diff options
Diffstat (limited to 'src/lib/libcrypto/des/asm/des-586.pl')
-rw-r--r-- | src/lib/libcrypto/des/asm/des-586.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/lib/libcrypto/des/asm/des-586.pl b/src/lib/libcrypto/des/asm/des-586.pl index 7f2e09fa7a..f054071077 100644 --- a/src/lib/libcrypto/des/asm/des-586.pl +++ b/src/lib/libcrypto/des/asm/des-586.pl | |||
@@ -1,4 +1,4 @@ | |||
1 | #!/usr/bin/perl | 1 | #!/usr/local/bin/perl |
2 | # | 2 | # |
3 | # The inner loop instruction sequence and the IP/FP modifications are from | 3 | # The inner loop instruction sequence and the IP/FP modifications are from |
4 | # Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk> | 4 | # Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk> |
@@ -187,6 +187,8 @@ sub R_PERM_OP | |||
187 | &mov( $tt, $a ); | 187 | &mov( $tt, $a ); |
188 | &xor( $a, $b ); | 188 | &xor( $a, $b ); |
189 | &and( $a, $mask ); | 189 | &and( $a, $mask ); |
190 | # This can never succeed, and besides it is difficult to see what the | ||
191 | # idea was - Ben 13 Feb 99 | ||
190 | if (!$last eq $b) | 192 | if (!$last eq $b) |
191 | { | 193 | { |
192 | &xor( $b, $a ); | 194 | &xor( $b, $a ); |