mirror of
https://github.com/openssl/openssl.git
synced 2024-11-27 05:21:51 +08:00
cfe1d9929e
[as it is now quoting $output is not required, but done just in case] Reviewed-by: Richard Levitte <levitte@openssl.org>
72 lines
1.5 KiB
Raku
Executable File
72 lines
1.5 KiB
Raku
Executable File
#! /usr/bin/env perl
|
|
# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
# this file except in compliance with the License. You can obtain a copy
|
|
# in the file LICENSE in the source distribution or at
|
|
# https://www.openssl.org/source/license.html
|
|
|
|
$output=pop;
|
|
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
|
open OUT,"| \"$^X\" \"${dir}../crypto/perlasm/x86_64-xlate.pl\" \"$output\"";
|
|
*STDOUT=*OUT;
|
|
push(@INC,"${dir}.");
|
|
|
|
require "uplink-common.pl";
|
|
|
|
$prefix="_lazy";
|
|
|
|
print <<___;
|
|
.text
|
|
.extern OPENSSL_Uplink
|
|
.globl OPENSSL_UplinkTable
|
|
___
|
|
for ($i=1;$i<=$N;$i++) {
|
|
print <<___;
|
|
.type $prefix${i},\@abi-omnipotent
|
|
.align 16
|
|
$prefix${i}:
|
|
.byte 0x48,0x83,0xEC,0x28 # sub rsp,40
|
|
mov %rcx,48(%rsp)
|
|
mov %rdx,56(%rsp)
|
|
mov %r8,64(%rsp)
|
|
mov %r9,72(%rsp)
|
|
lea OPENSSL_UplinkTable(%rip),%rcx
|
|
mov \$$i,%rdx
|
|
call OPENSSL_Uplink
|
|
mov 48(%rsp),%rcx
|
|
mov 56(%rsp),%rdx
|
|
mov 64(%rsp),%r8
|
|
mov 72(%rsp),%r9
|
|
lea OPENSSL_UplinkTable(%rip),%rax
|
|
add \$40,%rsp
|
|
jmp *8*$i(%rax)
|
|
$prefix${i}_end:
|
|
.size $prefix${i},.-$prefix${i}
|
|
___
|
|
}
|
|
print <<___;
|
|
.data
|
|
OPENSSL_UplinkTable:
|
|
.quad $N
|
|
___
|
|
for ($i=1;$i<=$N;$i++) { print " .quad $prefix$i\n"; }
|
|
print <<___;
|
|
.section .pdata,"r"
|
|
.align 4
|
|
___
|
|
for ($i=1;$i<=$N;$i++) {
|
|
print <<___;
|
|
.rva $prefix${i},$prefix${i}_end,${prefix}_unwind_info
|
|
___
|
|
}
|
|
print <<___;
|
|
.section .xdata,"r"
|
|
.align 8
|
|
${prefix}_unwind_info:
|
|
.byte 0x01,0x04,0x01,0x00
|
|
.byte 0x04,0x42,0x00,0x00
|
|
___
|
|
|
|
close STDOUT;
|