paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:26:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* stkptr fixed

Browse Source 
git-svn-id: trunk@2495 -
This commit is contained in:
peter 2006-02-09 08:23:07 +00:00
parent cbf91de10f
commit 7dfdc2fe4d
1 changed files with 6 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/win32/wdllprt0.as
View File

@ -20,6 +20,7 @@ _WinMainCRTStartup:
movl %edi,U_SYSTEM_DLLREASON movl %edi,U_SYSTEM_DLLREASON
movl 16(%ebp),%edi movl 16(%ebp),%edi
movl %edi,U_SYSTEM_DLLPARAM movl %edi,U_SYSTEM_DLLPARAM
movl %esp,__stkptr
call _FPC_DLL_Entry call _FPC_DLL_Entry
popl %edi popl %edi
popl %esi popl %esi
@ -31,13 +32,13 @@ _WinMainCRTStartup:
asm_exit: asm_exit:
pushl %eax pushl %eax
call exitprocess call exitprocess
.text .text
.globl exitprocess .globl exitprocess
exitprocess: exitprocess:
jmp *.L10 jmp *.L10
.balign 4,144 .balign 4,144
.text .text
.balign 4,144 .balign 4,144
@ -54,7 +55,7 @@ exitprocess:
.section .idata$5 .section .idata$5
.L8: .L8:
.section .idata$5 .section .idata$5
.L10: .L10:
@ -71,14 +72,5 @@ exitprocess:
.L6: .L6:
.ascii "kernel32.dll\000" .ascii "kernel32.dll\000"
.bss
// .comm __stkptr,4
// Revision 1.4 2002/12/04 21:36:44 carl
// * libraries would no longer compile because of my profiling fix
//
// Revision 1.3 2002/07/28 20:43:51 florian
// * several fixes for linux/powerpc
// * several fixes to MT
//
//