New ctrl to set current certificate.
[openssl.git] / ms / uplink-x86_64.pl
1 #!/usr/bin/env perl
2
3 $output=shift;
4 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
5 open OUT,"| \"$^X\" ${dir}../crypto/perlasm/x86_64-xlate.pl $output";
6 *STDOUT=*OUT;
7 push(@INC,"${dir}.");
8
9 require "uplink-common.pl";
10
11 $prefix="_lazy";
12
13 print <<___;
14 .text
15 .extern OPENSSL_Uplink
16 .globl  OPENSSL_UplinkTable
17 ___
18 for ($i=1;$i<=$N;$i++) {
19 print <<___;
20 .type   $prefix${i},\@abi-omnipotent
21 .align  16
22 $prefix${i}:
23         .byte   0x48,0x83,0xEC,0x28     # sub rsp,40
24         mov     %rcx,48(%rsp)
25         mov     %rdx,56(%rsp)
26         mov     %r8,64(%rsp)
27         mov     %r9,72(%rsp)
28         lea     OPENSSL_UplinkTable(%rip),%rcx
29         mov     \$$i,%rdx
30         call    OPENSSL_Uplink
31         mov     48(%rsp),%rcx
32         mov     56(%rsp),%rdx
33         mov     64(%rsp),%r8
34         mov     72(%rsp),%r9
35         lea     OPENSSL_UplinkTable(%rip),%rax
36         add     \$40,%rsp
37         jmp     *8*$i(%rax)
38 $prefix${i}_end:
39 .size   $prefix${i},.-$prefix${i}
40 ___
41 }
42 print <<___;
43 .data
44 OPENSSL_UplinkTable:
45         .quad   $N
46 ___
47 for ($i=1;$i<=$N;$i++) {   print "      .quad   $prefix$i\n";   }
48 print <<___;
49 .section        .pdata,"r"
50 .align          4
51 ___
52 for ($i=1;$i<=$N;$i++) {
53 print <<___;
54         .rva    $prefix${i},$prefix${i}_end,${prefix}_unwind_info
55 ___
56 }
57 print <<___;
58 .section        .xdata,"r"
59 .align          8
60 ${prefix}_unwind_info:
61         .byte   0x01,0x04,0x01,0x00
62         .byte   0x04,0x42,0x00,0x00
63 ___
64
65 close STDOUT;