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

* stacktop is a threadvar

Browse Source 
git-svn-id: trunk@2698 -
This commit is contained in:
peter 2006-02-26 19:56:22 +00:00
parent 092431bdd9
commit 98bced6f63
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/win32/system.pp
View File

@ -389,6 +389,8 @@ var
_SS : Cardinal; _SS : Cardinal;
procedure Exe_entry;[public,alias:'_FPC_EXE_Entry']; procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
var
ST : pointer;
begin begin
IsLibrary:=false; IsLibrary:=false;
{ install the handlers for exe only ? { install the handlers for exe only ?
@ -407,11 +409,14 @@ procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
movl %esp,%eax movl %esp,%eax
movl %eax,System_exception_frame movl %eax,System_exception_frame
pushl %ebp pushl %ebp
xorl %ebp,%ebp
movl %esp,%eax movl %esp,%eax
movl %eax,StackTop movl %eax,st
movw %ss,%bp end;
movl %ebp,_SS StackTop:=st;
asm
xorl %eax,%eax
movw %ss,%ax
movl %eax,_SS
call SysResetFPU call SysResetFPU
xorl %ebp,%ebp xorl %ebp,%ebp
call PASCALMAIN call PASCALMAIN