crypto/bn/asm/x86.pl

   1 #! /usr/bin/env perl
   2 # Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   4 # Licensed under the OpenSSL license (the "License").  You may not use
   5 # this file except in compliance with the License.  You can obtain a copy
   6 # in the file LICENSE in the source distribution or at
   7 # https://www.openssl.org/source/license.html
   8
   9 push(@INC,"perlasm","../../perlasm");
  10 require "x86asm.pl";
  11
  12 require("x86/mul_add.pl");
  13 require("x86/mul.pl");
  14 require("x86/sqr.pl");
  15 require("x86/div.pl");
  16 require("x86/add.pl");
  17 require("x86/sub.pl");
  18 require("x86/comba.pl");
  19
  20 $output = pop;
  21 open STDOUT,">$output";
  22
  23 &asm_init($ARGV[0],$0);
  24
  25 &bn_mul_add_words("bn_mul_add_words");
  26 &bn_mul_words("bn_mul_words");
  27 &bn_sqr_words("bn_sqr_words");
  28 &bn_div_words("bn_div_words");
  29 &bn_add_words("bn_add_words");
  30 &bn_sub_words("bn_sub_words");
  31 &bn_mul_comba("bn_mul_comba8",8);
  32 &bn_mul_comba("bn_mul_comba4",4);
  33 &bn_sqr_comba("bn_sqr_comba8",8);
  34 &bn_sqr_comba("bn_sqr_comba4",4);
  35
  36 &asm_finish();
  37
  38 close STDOUT;