2 # Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the Apache License 2.0 (the "License"). You may not use
5 # this file except in compliance with the License. You can obtain a copy
6 # in the file LICENSE in the source distribution or at
7 # https://www.openssl.org/source/license.html
10 $0 =~ m/(.*[\/\\])[^\
/\\]+$/; $dir=$1;
11 open OUT
,"| \"$^X\" \"${dir}../crypto/perlasm/x86_64-xlate.pl\" \"$output\"";
15 require "uplink-common.pl";
21 .extern OPENSSL_Uplink
22 .globl OPENSSL_UplinkTable
24 for ($i=1;$i<=$N;$i++) {
26 .type
$prefix${i
},\
@abi-omnipotent
29 .byte
0x48,0x83,0xEC,0x28 # sub rsp,40
34 lea OPENSSL_UplinkTable
(%rip),%rcx
41 lea OPENSSL_UplinkTable
(%rip),%rax
45 .size
$prefix${i
},.-$prefix${i
}
53 for ($i=1;$i<=$N;$i++) { print " .quad $prefix$i\n"; }
58 for ($i=1;$i<=$N;$i++) {
60 .rva
$prefix${i
},$prefix${i
}_end
,${prefix
}_unwind_info
66 ${prefix
}_unwind_info
:
67 .byte
0x01,0x04,0x01,0x00
68 .byte
0x04,0x42,0x00,0x00