* Clarified comments regarding TIB layout and stack bounds on OS/2.

git-svn-id: trunk@27134 -

rtl/emx/system.pas

@@ -550,8 +550,7 @@ begin
             begin
                 DosGetInfoBlocks (@TIB, @PIB);
                 StackLength:=CheckInitialStkLen(InitialStklen);
-                { TODO: verify if TIB^.StackLimit is correct,
-                  from MSWindows point of view TIB^.Stack should be used instead }
+                { OS/2 has top of stack in TIB^.StackLimit - unlike Windows where it is in TIB^.Stack }
                 StackBottom := TIB^.StackLimit - StackLength;
 
                 Environment := pointer (PIB^.Env);

rtl/os2/system.pas

@@ -1126,8 +1126,7 @@ begin
 {$ENDIF OS2EXCEPTIONS}
     DosGetInfoBlocks (@TIB, @PIB);
     StackLength := CheckInitialStkLen (InitialStkLen);
-    { TODO: verify if TIB^.StackLimit is correct,
-      from MSWindows point of view TIB^.Stack should be used instead }
+    { OS/2 has top of stack in TIB^.StackLimit - unlike Windows where it is in TIB^.Stack }
     StackBottom := TIB^.StackLimit - StackLength;
 
     {Set type of application}