$output=shift;
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
-open STDOUT,"| $^X ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
+open OUT,"| \"$^X\" ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
+*STDOUT=*OUT;
push(@INC,"${dir}.");
require "uplink-common.pl";
print <<___;
.text
.extern OPENSSL_Uplink
+.globl OPENSSL_UplinkTable
___
for ($i=1;$i<=$N;$i++) {
print <<___;
mov 56(%rsp),%rdx
mov 64(%rsp),%r8
mov 72(%rsp),%r9
- add \$40,%rsp
lea OPENSSL_UplinkTable(%rip),%rax
+ add \$40,%rsp
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
+.section .pdata,"r"
+.align 4
___
for ($i=1;$i<=$N;$i++) {
print <<___;
- .long $prefix${i}
- .long $prefix${i}_end
- .long ${prefix}_unwind_info
+ .rva $prefix${i},$prefix${i}_end,${prefix}_unwind_info
___
}
print <<___;
-.section .xdata
+.section .xdata,"r"
+.align 8
${prefix}_unwind_info:
.byte 0x01,0x04,0x01,0x00
.byte 0x04,0x42,0x00,0x00
___
+
+close STDOUT;