summaryrefslogtreecommitdiff
path: root/lib/libcrypto/bn/asm/ca.pl
blob: c1ce67a6b4d5d926acdc26bed9f0234cd967697c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/local/bin/perl
# I have this in perl so I can use more usefull register names and then convert
# them into alpha registers.
#

push(@INC,"perlasm","../../perlasm");
require "alpha.pl";
require "alpha/mul_add.pl";
require "alpha/mul.pl";
require "alpha/sqr.pl";
require "alpha/add.pl";
require "alpha/sub.pl";
require "alpha/mul_c8.pl";
require "alpha/mul_c4.pl";
require "alpha/sqr_c4.pl";
require "alpha/sqr_c8.pl";
require "alpha/div.pl";

&asm_init($ARGV[0],$0);

&bn_mul_words("bn_mul_words");
&bn_sqr_words("bn_sqr_words");
&bn_mul_add_words("bn_mul_add_words");
&bn_add_words("bn_add_words");
&bn_sub_words("bn_sub_words");
&bn_div_words("bn_div_words");
&bn_mul_comba8("bn_mul_comba8");
&bn_mul_comba4("bn_mul_comba4");
&bn_sqr_comba4("bn_sqr_comba4");
&bn_sqr_comba8("bn_sqr_comba8");

&asm_finish();