| OLD | NEW |
| 1 #!/usr/local/bin/perl | 1 #!/usr/local/bin/perl |
| 2 | 2 |
| 3 push(@INC,"perlasm","../../perlasm"); | 3 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; |
| 4 push(@INC,"${dir}","${dir}../../perlasm"); |
| 4 require "x86asm.pl"; | 5 require "x86asm.pl"; |
| 5 require "cbc.pl"; | 6 require "cbc.pl"; |
| 6 | 7 |
| 7 &asm_init($ARGV[0],"rc5-586.pl"); | 8 &asm_init($ARGV[0],"rc5-586.pl"); |
| 8 | 9 |
| 9 $RC5_MAX_ROUNDS=16; | 10 $RC5_MAX_ROUNDS=16; |
| 10 $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4; | 11 $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4; |
| 11 $A="edi"; | 12 $A="edi"; |
| 12 $B="esi"; | 13 $B="esi"; |
| 13 $S="ebp"; | 14 $S="ebp"; |
| (...skipping 86 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 100 | 101 |
| 101 &pop("ebx"); | 102 &pop("ebx"); |
| 102 &pop("edi"); | 103 &pop("edi"); |
| 103 &pop("esi"); | 104 &pop("esi"); |
| 104 &pop("ebp"); | 105 &pop("ebp"); |
| 105 &ret(); | 106 &ret(); |
| 106 &function_end_B($name); | 107 &function_end_B($name); |
| 107 } | 108 } |
| 108 | 109 |
| 109 | 110 |
| OLD | NEW |