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 |