mirror of
https://github.com/openssl/openssl.git
synced 2024-11-21 01:15:20 +08:00
e0a651945c
Add copyright to most .pl files This does NOT cover any .pl file that has other copyright in it. Most of those are Andy's but some are public domain. Fix typo's in some existing files. 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;
|