* forgot to add CheckInitialStkLen function

* fixed two unitinitialized StackLength variables

git-svn-id: trunk@1727 -

rtl/netware/system.pp

@@ -435,11 +435,16 @@ begin
 end;
 
 
+function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
+begin
+  result := stklen;
+end;
 {*****************************************************************************
                          SystemUnit Initialization
 *****************************************************************************}
 
 Begin
+  StackLength := CheckInitialStkLen(initialstklen);
   StackBottom := SPtr - StackLength;
   SigTermHandlerActive := false;
   NetwareCheckFunction := nil;

rtl/netwlibc/system.pp

@@ -519,6 +519,7 @@ end;
 
 Begin
   getCodeAddresses;
+  StackLength := CheckInitialStkLen(initialStkLen);
   StackBottom := SPtr - StackLength;
   SigTermHandlerActive := false;
   NetwareCheckFunction := nil;