| 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 | 6 |
| 6 &asm_init($ARGV[0],$0); | 7 &asm_init($ARGV[0],$0); |
| 7 | 8 |
| 8 &bn_mul_comba("bn_mul_comba8",8); | 9 &bn_mul_comba("bn_mul_comba8",8); |
| 9 &bn_mul_comba("bn_mul_comba4",4); | 10 &bn_mul_comba("bn_mul_comba4",4); |
| 10 &bn_sqr_comba("bn_sqr_comba8",8); | 11 &bn_sqr_comba("bn_sqr_comba8",8); |
| 11 &bn_sqr_comba("bn_sqr_comba4",4); | 12 &bn_sqr_comba("bn_sqr_comba4",4); |
| 12 | 13 |
| 13 &asm_finish(); | 14 &asm_finish(); |
| (...skipping 263 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 277 $be++ if ($i < ($num-1)); | 278 $be++ if ($i < ($num-1)); |
| 278 } | 279 } |
| 279 &mov(&DWP($i*4,$r,"",0),$c0); | 280 &mov(&DWP($i*4,$r,"",0),$c0); |
| 280 &pop("ebx"); | 281 &pop("ebx"); |
| 281 &pop("ebp"); | 282 &pop("ebp"); |
| 282 &pop("edi"); | 283 &pop("edi"); |
| 283 &pop("esi"); | 284 &pop("esi"); |
| 284 &ret(); | 285 &ret(); |
| 285 &function_end_B($name); | 286 &function_end_B($name); |
| 286 } | 287 } |
| OLD | NEW |