mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2025-01-18 13:44:20 +08:00
Code Issues Packages Projects Releases Wiki Activity

Platform update from 8-stable.

Browse Source
This commit is contained in:
Andy Polyakov 2005-05-31 11:07:27 +00:00
parent 5b737a0731
commit f8bc3e1bd8
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/perlasm/x86unix.pl
View File

@ -719,9 +719,9 @@ sub main'initseg
$tmp=<<___; $tmp=<<___;
.section .init .section .init
call $under$f call $under$f
jmp 1f jmp .Linitalign
.align $align .align $align
1: .Linitalign:
___ ___
} }
elsif ($main'coff) elsif ($main'coff)

12
ms/uplink.pl
View File

@ -168,23 +168,23 @@ _DATA SEGMENT
PUBLIC OPENSSL_UplinkTable PUBLIC OPENSSL_UplinkTable
OPENSSL_UplinkTable DQ $N OPENSSL_UplinkTable DQ $N
___ ___
for ($i=1;$i<=$N;$i++) { print " DQ FLAT:\$lazy$i\n"; } for ($i=1;$i<=$N;$i++) { print " DQ \$lazy$i\n"; }
print <<___; print <<___;
_DATA ENDS _DATA ENDS
TEXT SEGMENT _TEXT SEGMENT
EXTERN OPENSSL_Uplink:NEAR EXTERN OPENSSL_Uplink:PROC
___ ___
for ($i=1;$i<=$N;$i++) { for ($i=1;$i<=$N;$i++) {
print <<___; print <<___;
ALIGN 4 ALIGN 4
\$lazy$i PROC NEAR \$lazy$i PROC
push r9 push r9
push r8 push r8
push rdx push rdx
push rcx push rcx
sub rsp,40 sub rsp,40
mov rcx,OFFSET FLAT:OPENSSL_UplinkTable lea rcx,OFFSET OPENSSL_UplinkTable
mov rdx,$i mov rdx,$i
call OPENSSL_Uplink call OPENSSL_Uplink
add rsp,40 add rsp,40
@ -197,7 +197,7 @@ ALIGN 4
___ ___
} }
print <<___; print <<___;
TEXT ENDS _TEXT ENDS
END END
___ ___
} }