瀏覽代碼

* forgot to add CheckInitialStkLen function
* fixed two unitinitialized StackLength variables

git-svn-id: trunk@1727 -

tom_at_work 20 年之前
父節點
當前提交
cc2873232f
共有 2 個文件被更改,包括 6 次插入0 次删除
  1. 5 0
      rtl/netware/system.pp
  2. 1 0
      rtl/netwlibc/system.pp

+ 5 - 0
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;

+ 1 - 0
rtl/netwlibc/system.pp

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