| OLD | NEW |
| 1 #!/usr/local/bin/perl | 1 #!/usr/local/bin/perl |
| 2 | 2 |
| 3 # define for pentium pro friendly version | 3 # define for pentium pro friendly version |
| 4 $ppro=1; | 4 $ppro=1; |
| 5 | 5 |
| 6 push(@INC,"perlasm","../../perlasm"); | 6 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; |
| 7 push(@INC,"${dir}","${dir}../../perlasm"); |
| 7 require "x86asm.pl"; | 8 require "x86asm.pl"; |
| 8 require "cbc.pl"; | 9 require "cbc.pl"; |
| 9 | 10 |
| 10 &asm_init($ARGV[0],"cast-586.pl",$ARGV[$#ARGV] eq "386"); | 11 &asm_init($ARGV[0],"cast-586.pl",$ARGV[$#ARGV] eq "386"); |
| 11 | 12 |
| 12 $CAST_ROUNDS=16; | 13 $CAST_ROUNDS=16; |
| 13 $L="edi"; | 14 $L="edi"; |
| 14 $R="esi"; | 15 $R="esi"; |
| 15 $K="ebp"; | 16 $K="ebp"; |
| 16 $tmp1="ecx"; | 17 $tmp1="ecx"; |
| (...skipping 150 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 167 &$OP3( $tmp1, $tmp2); | 168 &$OP3( $tmp1, $tmp2); |
| 168 &mov( $tmp2, &DWP($S4,"",$tmp4,4)); | 169 &mov( $tmp2, &DWP($S4,"",$tmp4,4)); |
| 169 | 170 |
| 170 &$OP1( $tmp1, $tmp2); | 171 &$OP1( $tmp1, $tmp2); |
| 171 # XXX | 172 # XXX |
| 172 | 173 |
| 173 &xor( $L, $tmp1); | 174 &xor( $L, $tmp1); |
| 174 # XXX | 175 # XXX |
| 175 } | 176 } |
| 176 | 177 |
| OLD | NEW |