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 |