ms/uplink-x86_64.pl

   1 #! /usr/bin/env perl
   2 # Copyright 2008-2024 The OpenSSL Project Authors. All Rights Reserved.
   3 #
   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
   8
   9 # $output is the last argument if it looks like a file (it has an extension)
  10 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
  11 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
  12
  13 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
  14 open OUT,"| \"$^X\" \"${dir}../crypto/perlasm/x86_64-xlate.pl\" $flavour \"$output\""
  15     or die "can't call ${dir}../crypto/perlasm/x86_64-xlate.pl: $!";
  16 *STDOUT=*OUT;
  17 push(@INC,"${dir}.");
  18
  19 require "uplink-common.pl";
  20
  21 $prefix="_lazy";
  22
  23 print <<___;
  24 .text
  25 .extern OPENSSL_Uplink
  26 .globl  OPENSSL_UplinkTable
  27 ___
  28 for ($i=1;$i<=$N;$i++) {
  29 print <<___;
  30 .type   $prefix${i},\@abi-omnipotent
  31 .align  16
  32 $prefix${i}:
  33         .byte   0x48,0x83,0xEC,0x28     # sub rsp,40
  34         mov     %rcx,48(%rsp)
  35         mov     %rdx,56(%rsp)
  36         mov     %r8,64(%rsp)
  37         mov     %r9,72(%rsp)
  38         lea     OPENSSL_UplinkTable(%rip),%rcx
  39         mov     \$$i,%rdx
  40         call    OPENSSL_Uplink
  41         mov     48(%rsp),%rcx
  42         mov     56(%rsp),%rdx
  43         mov     64(%rsp),%r8
  44         mov     72(%rsp),%r9
  45         lea     OPENSSL_UplinkTable(%rip),%rax
  46         add     \$40,%rsp
  47         jmp     *8*$i(%rax)
  48 $prefix${i}_end:
  49 .size   $prefix${i},.-$prefix${i}
  50 ___
  51 }
  52 print <<___;
  53 .data
  54 OPENSSL_UplinkTable:
  55         .quad   $N
  56 ___
  57 for ($i=1;$i<=$N;$i++) {   print "      .quad   $prefix$i\n";   }
  58 print <<___;
  59 .section        .pdata,"r"
  60 .align          4
  61 ___
  62 for ($i=1;$i<=$N;$i++) {
  63 print <<___;
  64         .rva    $prefix${i},$prefix${i}_end,${prefix}_unwind_info
  65 ___
  66 }
  67 print <<___;
  68 .section        .xdata,"r"
  69 .align          8
  70 ${prefix}_unwind_info:
  71         .byte   0x01,0x04,0x01,0x00
  72         .byte   0x04,0x42,0x00,0x00
  73 ___
  74
  75 close STDOUT;