crypto/openssl-0.9.7e/crypto/bn/asm/x86.pl

   1 #!/usr/local/bin/perl
   2
   3 push(@INC,"perlasm","../../perlasm");
   4 require "x86asm.pl";
   5
   6 require("x86/mul_add.pl");
   7 require("x86/mul.pl");
   8 require("x86/sqr.pl");
   9 require("x86/div.pl");
  10 require("x86/add.pl");
  11 require("x86/sub.pl");
  12 require("x86/comba.pl");
  13
  14 &asm_init($ARGV[0],$0);
  15
  16 &bn_mul_add_words("bn_mul_add_words");
  17 &bn_mul_words("bn_mul_words");
  18 &bn_sqr_words("bn_sqr_words");
  19 &bn_div_words("bn_div_words");
  20 &bn_add_words("bn_add_words");
  21 &bn_sub_words("bn_sub_words");
  22 &bn_mul_comba("bn_mul_comba8",8);
  23 &bn_mul_comba("bn_mul_comba4",4);
  24 &bn_sqr_comba("bn_sqr_comba8",8);
  25 &bn_sqr_comba("bn_sqr_comba4",4);
  26
  27 &asm_finish();
  28