add: execute openssl fetcher to fetch openssl 1.0.1j

[cassiopeia.git] / lib / openssl / ms / uplink-ia64.pl

diff --git a/lib/openssl/ms/uplink-ia64.pl b/lib/openssl/ms/uplink-ia64.pl
new file mode 100755 (executable)
index 0000000..4204c73
--- /dev/null
+++ b/lib/openssl/ms/uplink-ia64.pl
@@ -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#
+___