]>
git.ipfire.org Git - thirdparty/openssl.git/blob - ms/uplink-x86.pl
2 # Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
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
9 $0 =~ m/(.*[\/\\])[^\
/\\]+$/; $dir=$1;
10 push(@INC, "${dir}.", "${dir}../crypto/perlasm");
13 require "uplink-common.pl";
16 open STDOUT
,">$output";
18 &asm_init
($ARGV[0],"uplink-x86");
20 &external_label
("OPENSSL_Uplink");
21 &public_label
("OPENSSL_UplinkTable");
23 for ($i=1;$i<=$N;$i++) {
24 &function_begin_B
("_\$lazy${i}");
25 &lea
("eax",&DWP
(&label
("OPENSSL_UplinkTable")));
28 &call
(&label
("OPENSSL_Uplink"));
31 &jmp_ptr
(&DWP
(4*$i,"eax"));
32 &function_end_B
("_\$lazy${i}");
37 &set_label
("OPENSSL_UplinkTable");
39 for ($i=1;$i<=$N;$i++) {
40 &data_word
(&label
("_\$lazy${i}"));