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>
61 lines
1.4 KiB
Perl
Executable file
61 lines
1.4 KiB
Perl
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;
|
|
open STDOUT,">$output";
|
|
|
|
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
|
push(@INC,"${dir}.");
|
|
|
|
require "uplink-common.pl";
|
|
|
|
local $V=8; # max number of args uplink functions may accept...
|
|
my $loc0 = "r".(32+$V);
|
|
print <<___;
|
|
.text
|
|
.global OPENSSL_Uplink#
|
|
.type OPENSSL_Uplink#,\@function
|
|
|
|
___
|
|
for ($i=1;$i<=$N;$i++) {
|
|
print <<___;
|
|
.proc lazy$i#
|
|
lazy$i:
|
|
.prologue
|
|
{ .mii; .save ar.pfs,$loc0
|
|
alloc loc0=ar.pfs,$V,3,2,0
|
|
.save b0,loc1
|
|
mov loc1=b0
|
|
addl loc2=\@ltoff(OPENSSL_UplinkTable#),gp };;
|
|
.body
|
|
{ .mmi; ld8 out0=[loc2]
|
|
mov out1=$i };;
|
|
{ .mib; add loc2=8*$i,out0
|
|
br.call.sptk.many b0=OPENSSL_Uplink# };;
|
|
{ .mmi; ld8 r31=[loc2];;
|
|
ld8 r30=[r31],8 };;
|
|
{ .mii; ld8 gp=[r31]
|
|
mov b6=r30
|
|
mov b0=loc1 };;
|
|
{ .mib; mov ar.pfs=loc0
|
|
br.many b6 };;
|
|
.endp lazy$i#
|
|
|
|
___
|
|
}
|
|
print <<___;
|
|
.data
|
|
.global OPENSSL_UplinkTable#
|
|
OPENSSL_UplinkTable: data8 $N // amount of following entries
|
|
___
|
|
for ($i=1;$i<=$N;$i++) { print " data8 \@fptr(lazy$i#)\n"; }
|
|
print <<___;
|
|
.size OPENSSL_UplinkTable,.-OPENSSL_UplinkTable#
|
|
___
|
|
|
|
close STDOUT;
|