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
16 for ($i=1;$i<=$N;$i++) {
18 .type $prefix${i},\@abi-omnipotent
21 .byte 0x48,0x83,0xEC,0x28 # sub rsp,40
26 lea OPENSSL_UplinkTable(%rip),%rcx
34 lea OPENSSL_UplinkTable(%rip),%rax
37 .size $prefix${i},.-$prefix${i}
42 .globl OPENSSL_UplinkTable
46 for ($i=1;$i<=$N;$i++) { print " .quad $prefix$i\n"; }
50 for ($i=1;$i<=$N;$i++) {
54 .long ${prefix}_unwind_info
59 ${prefix}_unwind_info:
60 .byte 0x01,0x04,0x01,0x00
61 .byte 0x04,0x42,0x00,0x00