From dbedc97141a97e6e88e0da843b5cb7c23106b3be Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 17 Jul 2004 15:31:03 +0000
Subject: [PATCH]   * initialise StackLength (fixes stack checking in general,
 and tw2897 in     particular)

---
 rtl/bsd/system.pp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/rtl/bsd/system.pp b/rtl/bsd/system.pp
index 651fa82771..39815175ca 100644
--- a/rtl/bsd/system.pp
+++ b/rtl/bsd/system.pp
@@ -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