diff options
Diffstat (limited to 'openssl/ms/uplink-ia64.pl')
-rwxr-xr-x | openssl/ms/uplink-ia64.pl | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/openssl/ms/uplink-ia64.pl b/openssl/ms/uplink-ia64.pl deleted file mode 100755 index 4204c73..0000000 --- a/openssl/ms/uplink-ia64.pl +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/env perl - -$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# -___ |