2016-04-20 02:10:43 +00:00
|
|
|
#! /usr/bin/env perl
|
|
|
|
# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
|
|
#
|
|
|
|
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
|
|
# in the file LICENSE in the source distribution or at
|
|
|
|
# https://www.openssl.org/source/license.html
|
1998-12-21 11:00:56 +00:00
|
|
|
|
|
|
|
push(@INC,"perlasm","../../perlasm");
|
|
|
|
require "x86asm.pl";
|
|
|
|
|
|
|
|
require("x86/mul_add.pl");
|
|
|
|
require("x86/mul.pl");
|
|
|
|
require("x86/sqr.pl");
|
|
|
|
require("x86/div.pl");
|
|
|
|
require("x86/add.pl");
|
|
|
|
require("x86/sub.pl");
|
|
|
|
require("x86/comba.pl");
|
|
|
|
|
2016-03-07 14:41:33 +00:00
|
|
|
$output = pop;
|
|
|
|
open STDOUT,">$output";
|
|
|
|
|
2017-05-10 18:24:56 +00:00
|
|
|
&asm_init($ARGV[0]);
|
1998-12-21 11:00:56 +00:00
|
|
|
|
|
|
|
&bn_mul_add_words("bn_mul_add_words");
|
|
|
|
&bn_mul_words("bn_mul_words");
|
|
|
|
&bn_sqr_words("bn_sqr_words");
|
|
|
|
&bn_div_words("bn_div_words");
|
|
|
|
&bn_add_words("bn_add_words");
|
|
|
|
&bn_sub_words("bn_sub_words");
|
|
|
|
&bn_mul_comba("bn_mul_comba8",8);
|
|
|
|
&bn_mul_comba("bn_mul_comba4",4);
|
|
|
|
&bn_sqr_comba("bn_sqr_comba8",8);
|
|
|
|
&bn_sqr_comba("bn_sqr_comba4",4);
|
|
|
|
|
|
|
|
&asm_finish();
|
|
|
|
|
2016-03-07 14:41:33 +00:00
|
|
|
close STDOUT;
|