Index: openssl/ms/uplink-ia64.pl |
=================================================================== |
--- openssl/ms/uplink-ia64.pl (revision 0) |
+++ openssl/ms/uplink-ia64.pl (revision 0) |
@@ -0,0 +1,50 @@ |
+#!/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# |
+___ |