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;