ms/uplink-x86_64.pl

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