add: execute openssl fetcher to fetch openssl 1.0.1j

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

diff --git a/lib/openssl/ms/uplink.pl b/lib/openssl/ms/uplink.pl
new file mode 100755 (executable)
index 0000000..102400e
--- /dev/null
+++ b/lib/openssl/ms/uplink.pl
@@ -0,0 +1,204 @@
+#!/usr/bin/env perl
+#
+# For Microsoft CL this is implemented as inline assembler. So that
+# even though this script can generate even Win32 code, we'll be
+# using it primarily to generate Win64 modules. Both IA-64 and AMD64
+# are supported...
+
+# pull APPLINK_MAX value from applink.c...
+$applink_c=$0;
+$applink_c=~s|[^/\\]+$||g;
+$applink_c.="applink.c";
+open(INPUT,$applink_c) || die "can't open $applink_c: $!";
+@max=grep {/APPLINK_MAX\s+(\d+)/} <INPUT>;
+close(INPUT);
+($#max==0) or die "can't find APPLINK_MAX in $applink_c";
+
+$max[0]=~/APPLINK_MAX\s+(\d+)/;
+$N=$1; # number of entries in OPENSSL_UplinkTable not including
+       # OPENSSL_UplinkTable[0], which contains this value...
+
+# Idea is to fill the OPENSSL_UplinkTable with pointers to stubs
+# which invoke 'void OPENSSL_Uplink (ULONG_PTR *table,int index)';
+# and then dereference themselves. Latter shall result in endless
+# loop *unless* OPENSSL_Uplink does not replace 'table[index]' with
+# something else, e.g. as 'table[index]=unimplemented;'...
+
+$arg = shift;
+#( defined shift || open STDOUT,">$arg" ) || die "can't open $arg: $!";
+
+if ($arg =~ /win32n/)  { ia32nasm();  }
+elsif ($arg =~ /win32/)        { ia32masm();  }
+elsif ($arg =~ /coff/) { ia32gas();   }
+elsif ($arg =~ /win64i/ or $arg =~ /ia64/)     { ia64ias();   }
+elsif ($arg =~ /win64a/ or $arg =~ /amd64/)    { amd64masm(); }
+else   { die "nonsense $arg"; }
+
+sub ia32gas() {
+print <<___;
+.text
+___
+for ($i=1;$i<=$N;$i++) {
+print <<___;
+.def   .Lazy$i;        .scl    3;      .type   32;     .endef
+.align 4
+.Lazy$i:
+       pushl   \$$i
+       pushl   \$_OPENSSL_UplinkTable
+       call    _OPENSSL_Uplink
+       addl    \$8,%esp
+       jmp     *(_OPENSSL_UplinkTable+4*$i)
+___
+}
+print <<___;
+.data
+.align 4
+.globl  _OPENSSL_UplinkTable
+_OPENSSL_UplinkTable:
+       .long   $N
+___
+for ($i=1;$i<=$N;$i++) {   print "     .long   .Lazy$i\n";   }
+}
+
+sub ia32masm() {
+print <<___;
+.386P
+.model FLAT
+
+_DATA  SEGMENT
+PUBLIC _OPENSSL_UplinkTable
+_OPENSSL_UplinkTable   DD      $N      ; amount of following entries
+___
+for ($i=1;$i<=$N;$i++) {   print "     DD      FLAT:\$lazy$i\n";   }
+print <<___;
+_DATA  ENDS
+
+_TEXT  SEGMENT
+EXTRN  _OPENSSL_Uplink:NEAR
+___
+for ($i=1;$i<=$N;$i++) {
+print <<___;
+ALIGN  4
+\$lazy$i       PROC NEAR
+       push    $i
+       push    OFFSET FLAT:_OPENSSL_UplinkTable
+       call    _OPENSSL_Uplink
+       add     esp,8
+       jmp     DWORD PTR _OPENSSL_UplinkTable+4*$i
+\$lazy$i       ENDP
+___
+}
+print <<___;
+ALIGN  4
+_TEXT  ENDS
+END
+___
+}
+
+sub ia32nasm() {
+print <<___;
+SEGMENT        .data
+GLOBAL _OPENSSL_UplinkTable
+_OPENSSL_UplinkTable   DD      $N      ; amount of following entries
+___
+for ($i=1;$i<=$N;$i++) {   print "     DD      \$lazy$i\n";   }
+print <<___;
+
+SEGMENT        .text
+EXTERN _OPENSSL_Uplink
+___
+for ($i=1;$i<=$N;$i++) {
+print <<___;
+ALIGN  4
+\$lazy$i:
+       push    $i
+       push    _OPENSSL_UplinkTable
+       call    _OPENSSL_Uplink
+       add     esp,8
+       jmp     [_OPENSSL_UplinkTable+4*$i]
+___
+}
+print <<___;
+ALIGN  4
+END
+___
+}
+
+sub ia64ias () {
+local $V=8;    # max number of args uplink functions may accept...
+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#
+
+.text
+.global        OPENSSL_Uplink#
+.type  OPENSSL_Uplink#,\@function
+___
+for ($i=1;$i<=$N;$i++) {
+print <<___;
+.proc  lazy$i
+lazy$i:
+{ .mii;        alloc   loc0=ar.pfs,$V,3,2,0
+       mov     loc1=b0
+       addl    loc2=\@ltoff(OPENSSL_UplinkTable#),gp   };;
+{ .mmi;        ld8     out0=[loc2]
+       mov     out1=$i                                 };;
+{ .mib;        adds    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#
+___
+}
+}
+
+sub amd64masm() {
+print <<___;
+_DATA  SEGMENT
+PUBLIC OPENSSL_UplinkTable
+OPENSSL_UplinkTable    DQ      $N
+___
+for ($i=1;$i<=$N;$i++) {   print "     DQ      \$lazy$i\n";   }
+print <<___;
+_DATA  ENDS
+
+_TEXT  SEGMENT
+EXTERN OPENSSL_Uplink:PROC
+___
+for ($i=1;$i<=$N;$i++) {
+print <<___;
+ALIGN  4
+\$lazy$i       PROC
+       push    r9
+       push    r8
+       push    rdx
+       push    rcx
+       sub     rsp,40
+       lea     rcx,OFFSET OPENSSL_UplinkTable
+       mov     rdx,$i
+       call    OPENSSL_Uplink
+       add     rsp,40
+       pop     rcx
+       pop     rdx
+       pop     r8
+       pop     r9
+       jmp     QWORD PTR OPENSSL_UplinkTable+8*$i
+\$lazy$i       ENDP
+___
+}
+print <<___;
+_TEXT  ENDS
+END
+___
+}
+