paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:26:02 +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

14
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
@ -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
//
//