[thirdparty/openssl.git] / ms / uplink-x86.pl

#!/usr/bin/env perl

$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
push(@INC, "${dir}.", "${dir}../crypto/perlasm");
require "x86asm.pl";

require "uplink-common.pl";

$output = pop;
open STDOUT,">$output";

&asm_init($ARGV[0],"uplink-x86");

&external_label("OPENSSL_Uplink");
&public_label("OPENSSL_UplinkTable");

for ($i=1;$i<=$N;$i++) {
&function_begin_B("_\$lazy${i}");
	&lea	("eax",&DWP(&label("OPENSSL_UplinkTable")));
	&push	($i);
	&push	("eax");
	&call	(&label("OPENSSL_Uplink"));
	&pop	("eax");
	&add	("esp",4);
	&jmp_ptr(&DWP(4*$i,"eax"));
&function_end_B("_\$lazy${i}");
}

&dataseg();
&align(4);
&set_label("OPENSSL_UplinkTable");
&data_word($N);
for ($i=1;$i<=$N;$i++) {
&data_word(&label("_\$lazy${i}"));
}
&asm_finish();

close OUTPUT;
Commit	Line	Data
4c048211 AP	1	#!/usr/bin/env perl
	2
	3	$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
	4	push(@INC, "${dir}.", "${dir}../crypto/perlasm");
	5	require "x86asm.pl";
	6
	7	require "uplink-common.pl";
	8
0a4edb93 RL	9	$output = pop;
	10	open STDOUT,">$output";
	11
4c048211 AP	12	&asm_init($ARGV[0],"uplink-x86");
	13
	14	&external_label("OPENSSL_Uplink");
	15	&public_label("OPENSSL_UplinkTable");
	16
	17	for ($i=1;$i<=$N;$i++) {
	18	&function_begin_B("_\$lazy${i}");
	19	&lea ("eax",&DWP(&label("OPENSSL_UplinkTable")));
4c048211	20	&push ($i);
740b2b9a	21	&push ("eax");
4c048211	22	&call (&label("OPENSSL_Uplink"));
4c048211	23	&pop ("eax");
740b2b9a	24	&add ("esp",4);
4c048211 AP	25	&jmp_ptr(&DWP(4*$i,"eax"));
	26	&function_end_B("_\$lazy${i}");
	27	}
	28
	29	&dataseg();
	30	&align(4);
	31	&set_label("OPENSSL_UplinkTable");
	32	&data_word($N);
	33	for ($i=1;$i<=$N;$i++) {
	34	&data_word(&label("_\$lazy${i}"));
	35	}
	36	&asm_finish();
0a4edb93 RL	37
0a4edb93 RL	38	close OUTPUT;