userapps/opensource/openssl/crypto/bn/asm/ca.pl

   1 #!/usr/local/bin/perl
   2 # I have this in perl so I can use more usefull register names and then convert
   3 # them into alpha registers.
   4 #
   5
   6 push(@INC,"perlasm","../../perlasm");
   7 require "alpha.pl";
   8 require "alpha/mul_add.pl";
   9 require "alpha/mul.pl";
  10 require "alpha/sqr.pl";
  11 require "alpha/add.pl";
  12 require "alpha/sub.pl";
  13 require "alpha/mul_c8.pl";
  14 require "alpha/mul_c4.pl";
  15 require "alpha/sqr_c4.pl";
  16 require "alpha/sqr_c8.pl";
  17 require "alpha/div.pl";
  18
  19 &asm_init($ARGV[0],$0);
  20
  21 &bn_mul_words("bn_mul_words");
  22 &bn_sqr_words("bn_sqr_words");
  23 &bn_mul_add_words("bn_mul_add_words");
  24 &bn_add_words("bn_add_words");
  25 &bn_sub_words("bn_sub_words");
  26 &bn_div_words("bn_div_words");
  27 &bn_mul_comba8("bn_mul_comba8");
  28 &bn_mul_comba4("bn_mul_comba4");
  29 &bn_sqr_comba4("bn_sqr_comba4");
  30 &bn_sqr_comba8("bn_sqr_comba8");
  31
  32 &asm_finish();
  33