Split ms/uplink.pl to corresponding platform versions.

#!/usr/bin/env perl

#

# pull APPLINK_MAX value from applink.c...

$applink_c=$0;

$applink_c=~s|[^/\\]+$||g;

$applink_c.="applink.c";

open(INPUT,$applink_c) || die "can't open $applink_c: $!";

@max=grep {/APPLINK_MAX\s+(\d+)/} <INPUT>;

close(INPUT);

($#max==0) or die "can't find APPLINK_MAX in $applink_c";

$max[0]=~/APPLINK_MAX\s+(\d+)/;

$N=$1;	# number of entries in OPENSSL_UplinkTable not including

	# OPENSSL_UplinkTable[0], which contains this value...

1;

# Idea is to fill the OPENSSL_UplinkTable with pointers to stubs

# which invoke 'void OPENSSL_Uplink (ULONG_PTR *table,int index)';

# and then dereference themselves. Latter shall result in endless

# loop *unless* OPENSSL_Uplink does not replace 'table[index]' with

# something else, e.g. as 'table[index]=unimplemented;'...

#!/usr/bin/env perl

$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;

push(@INC,"${dir}.");

require "uplink-common.pl";

local $V=8;	# max number of args uplink functions may accept...

my $loc0 = "r".(32+$V);

print <<___;

.text

.global	OPENSSL_Uplink#

.type	OPENSSL_Uplink#,\@function

___

for ($i=1;$i<=$N;$i++) {

print <<___;

.proc	lazy$i#

lazy$i:

	.prologue

{ .mii;	.save	ar.pfs,$loc0

	alloc	loc0=ar.pfs,$V,3,2,0

	.save	b0,loc1

	mov	loc1=b0

	addl	loc2=\@ltoff(OPENSSL_UplinkTable#),gp	};;

	.body

{ .mmi;	ld8	out0=[loc2]

	mov	out1=$i					};;

{ .mib;	add	loc2=8*$i,out0

	br.call.sptk.many	b0=OPENSSL_Uplink#	};;

{ .mmi;	ld8	r31=[loc2];;

	ld8	r30=[r31],8				};;

{ .mii;	ld8	gp=[r31]

	mov	b6=r30

	mov	b0=loc1					};;

{ .mib;	mov	ar.pfs=loc0

	br.many	b6					};;

.endp	lazy$i#

___

}

print <<___;

.data

.global OPENSSL_UplinkTable#

OPENSSL_UplinkTable:    data8   $N      // amount of following entries

___

for ($i=1;$i<=$N;$i++) {   print "      data8   \@fptr(lazy$i#)\n";   }

print <<___;

.size   OPENSSL_UplinkTable,.-OPENSSL_UplinkTable#

___

#!/usr/bin/env perl

$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;

push(@INC, "${dir}.", "${dir}../crypto/perlasm");

require "x86asm.pl";

require "uplink-common.pl";

&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	("eax");

	&push	($i);

	&call	(&label("OPENSSL_Uplink"));

	&add	("esp",8);

	&pop	("eax");

	&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();

#!/usr/bin/env perl

$output=shift;

$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;

open STDOUT,"| $^X ${dir}../crypto/perlasm/x86_64-xlate.pl $output";

push(@INC,"${dir}.");

require "uplink-common.pl";

$prefix="_lazy";

print <<___;

.text

.extern	OPENSSL_Uplink

___

for ($i=1;$i<=$N;$i++) {

print <<___;

.type	$prefix${i},\@abi-omnipotent

.align	16

$prefix${i}:

	.byte	0x48,0x83,0xEC,0x28	# sub rsp,40

	mov	%rcx,48(%rsp)

	mov	%rdx,56(%rsp)

	mov	%r8,64(%rsp)

	mov	%r9,72(%rsp)

	lea	OPENSSL_UplinkTable(%rip),%rcx

	mov	\$$i,%rdx

	call	OPENSSL_Uplink

	mov	48(%rsp),%rcx

	mov	56(%rsp),%rdx

	mov	64(%rsp),%r8

	mov	72(%rsp),%r9

	add	\$40,%rsp

	lea	OPENSSL_UplinkTable(%rip),%rax

	jmp	*8*$i(%rax)

$prefix${i}_end:

.size	$prefix${i},.-$prefix${i}

___

}

print <<___;

.data

.globl  OPENSSL_UplinkTable

OPENSSL_UplinkTable:

        .quad   $N

___

for ($i=1;$i<=$N;$i++) {   print "      .quad   $prefix$i\n";   }

print <<___;

.section	.pdata

___

for ($i=1;$i<=$N;$i++) {

print <<___;

	.long	$prefix${i}

	.long	$prefix${i}_end

	.long	${prefix}_unwind_info

___

}

print <<___;

.section	.xdata

${prefix}_unwind_info:

	.byte	0x01,0x04,0x01,0x00

	.byte	0x04,0x42,0x00,0x00

___