mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-10 03:26:14 +02:00
* initialise StackLength (fixes stack checking in general, and tw2897 in
particular)
This commit is contained in:
parent
0ba2497f24
commit
dbedc97141
@ -190,6 +190,7 @@ end;
|
||||
Begin
|
||||
IsConsole := TRUE;
|
||||
IsLibrary := FALSE;
|
||||
StackLength := InitialStkLen;
|
||||
StackBottom := Sptr - StackLength;
|
||||
{ Set up signals handlers }
|
||||
InstallSignals;
|
||||
@ -212,7 +213,11 @@ End.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.18 2004-07-03 22:49:34 daniel
|
||||
Revision 1.19 2004-07-17 15:31:03 jonas
|
||||
* initialise StackLength (fixes stack checking in general, and tw2897 in
|
||||
particular)
|
||||
|
||||
Revision 1.18 2004/07/03 22:49:34 daniel
|
||||
* Moved declarations downwards
|
||||
|
||||
Revision 1.17 2004/07/03 22:44:37 daniel
|
||||
|
Loading…
Reference in New Issue
Block a user