4 $0 =~ m/(.*[\/\\])[^\
/\\]+$/; $dir=$1;
5 open STDOUT
,"| $^X ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
8 require "uplink-common.pl";
14 .extern OPENSSL_Uplink
15 .globl OPENSSL_UplinkTable
17 for ($i=1;$i<=$N;$i++) {
19 .type
$prefix${i
},\
@abi-omnipotent
22 .byte
0x48,0x83,0xEC,0x28 # sub rsp,40
27 lea OPENSSL_UplinkTable
(%rip),%rcx
34 lea OPENSSL_UplinkTable
(%rip),%rax
38 .size
$prefix${i
},.-$prefix${i
}
46 for ($i=1;$i<=$N;$i++) { print " .quad $prefix$i\n"; }
51 for ($i=1;$i<=$N;$i++) {
53 .rva
$prefix${i
},$prefix${i
}_end
,${prefix
}_unwind_info
59 ${prefix
}_unwind_info
:
60 .byte
0x01,0x04,0x01,0x00
61 .byte
0x04,0x42,0x00,0x00