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

* fixed the stack traces (StackTop initialization) under go32v2 as well

Browse Source 
git-svn-id: trunk@25875 -
This commit is contained in:
nickysn 2013-10-28 00:14:08 +00:00
parent 12b1e0cbfd
commit 611358be7e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/go32v2/system.pp
View File

@ -642,8 +642,12 @@ end;
var var
temp_int : tseginfo; temp_int : tseginfo;
Begin Begin
StackLength := CheckInitialStkLen(InitialStkLen); { v2prt0.as adds 256 bytes to __stkbottom for extra safety during stack
checking, so we subtract 256 here in order to calculate StackTop correctly
and to ensure that StackLength = StackTop - StackBottom }
StackLength := CheckInitialStkLen(InitialStkLen)-256;
StackBottom := __stkbottom; StackBottom := __stkbottom;
StackTop := StackBottom + StackLength;
{ To be set if this is a GUI or console application } { To be set if this is a GUI or console application }
IsConsole := TRUE; IsConsole := TRUE;
{ To be set if this is a library and not a program } { To be set if this is a library and not a program }