Blame ms/uplink-x86_64.pl
|
Packit Service |
084de1 |
#! /usr/bin/env perl
|
|
Packit Service |
084de1 |
# Copyright 2008-2016 The OpenSSL Project Authors. All Rights Reserved.
|
|
Packit Service |
084de1 |
#
|
|
Packit Service |
084de1 |
# Licensed under the OpenSSL license (the "License"). You may not use
|
|
Packit Service |
084de1 |
# this file except in compliance with the License. You can obtain a copy
|
|
Packit Service |
084de1 |
# in the file LICENSE in the source distribution or at
|
|
Packit Service |
084de1 |
# https://www.openssl.org/source/license.html
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
$output=pop;
|
|
Packit Service |
084de1 |
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
|
Packit Service |
084de1 |
open OUT,"| \"$^X\" \"${dir}../crypto/perlasm/x86_64-xlate.pl\" \"$output\"";
|
|
Packit Service |
084de1 |
*STDOUT=*OUT;
|
|
Packit Service |
084de1 |
push(@INC,"${dir}.");
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
require "uplink-common.pl";
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
$prefix="_lazy";
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
print <<___;
|
|
Packit Service |
084de1 |
.text
|
|
Packit Service |
084de1 |
.extern OPENSSL_Uplink
|
|
Packit Service |
084de1 |
.globl OPENSSL_UplinkTable
|
|
Packit Service |
084de1 |
___
|
|
Packit Service |
084de1 |
for ($i=1;$i<=$N;$i++) {
|
|
Packit Service |
084de1 |
print <<___;
|
|
Packit Service |
084de1 |
.type $prefix${i},\@abi-omnipotent
|
|
Packit Service |
084de1 |
.align 16
|
|
Packit Service |
084de1 |
$prefix${i}:
|
|
Packit Service |
084de1 |
.byte 0x48,0x83,0xEC,0x28 # sub rsp,40
|
|
Packit Service |
084de1 |
mov %rcx,48(%rsp)
|
|
Packit Service |
084de1 |
mov %rdx,56(%rsp)
|
|
Packit Service |
084de1 |
mov %r8,64(%rsp)
|
|
Packit Service |
084de1 |
mov %r9,72(%rsp)
|
|
Packit Service |
084de1 |
lea OPENSSL_UplinkTable(%rip),%rcx
|
|
Packit Service |
084de1 |
mov \$$i,%rdx
|
|
Packit Service |
084de1 |
call OPENSSL_Uplink
|
|
Packit Service |
084de1 |
mov 48(%rsp),%rcx
|
|
Packit Service |
084de1 |
mov 56(%rsp),%rdx
|
|
Packit Service |
084de1 |
mov 64(%rsp),%r8
|
|
Packit Service |
084de1 |
mov 72(%rsp),%r9
|
|
Packit Service |
084de1 |
lea OPENSSL_UplinkTable(%rip),%rax
|
|
Packit Service |
084de1 |
add \$40,%rsp
|
|
Packit Service |
084de1 |
jmp *8*$i(%rax)
|
|
Packit Service |
084de1 |
$prefix${i}_end:
|
|
Packit Service |
084de1 |
.size $prefix${i},.-$prefix${i}
|
|
Packit Service |
084de1 |
___
|
|
Packit Service |
084de1 |
}
|
|
Packit Service |
084de1 |
print <<___;
|
|
Packit Service |
084de1 |
.data
|
|
Packit Service |
084de1 |
OPENSSL_UplinkTable:
|
|
Packit Service |
084de1 |
.quad $N
|
|
Packit Service |
084de1 |
___
|
|
Packit Service |
084de1 |
for ($i=1;$i<=$N;$i++) { print " .quad $prefix$i\n"; }
|
|
Packit Service |
084de1 |
print <<___;
|
|
Packit Service |
084de1 |
.section .pdata,"r"
|
|
Packit Service |
084de1 |
.align 4
|
|
Packit Service |
084de1 |
___
|
|
Packit Service |
084de1 |
for ($i=1;$i<=$N;$i++) {
|
|
Packit Service |
084de1 |
print <<___;
|
|
Packit Service |
084de1 |
.rva $prefix${i},$prefix${i}_end,${prefix}_unwind_info
|
|
Packit Service |
084de1 |
___
|
|
Packit Service |
084de1 |
}
|
|
Packit Service |
084de1 |
print <<___;
|
|
Packit Service |
084de1 |
.section .xdata,"r"
|
|
Packit Service |
084de1 |
.align 8
|
|
Packit Service |
084de1 |
${prefix}_unwind_info:
|
|
Packit Service |
084de1 |
.byte 0x01,0x04,0x01,0x00
|
|
Packit Service |
084de1 |
.byte 0x04,0x42,0x00,0x00
|
|
Packit Service |
084de1 |
___
|
|
Packit Service |
084de1 |
|
|
Packit Service |
084de1 |
close STDOUT;
|