Procházet zdrojové kódy

+ initialize IsConsole and IsLibrary in the win16 system unit startup code

git-svn-id: trunk@31610 -
nickysn před 10 roky
rodič
revize
9997ee54fb
1 změnil soubory, kde provedl 4 přidání a 0 odebrání
  1. 4 0
      rtl/win16/system.pp

+ 4 - 0
rtl/win16/system.pp

@@ -328,6 +328,10 @@ begin
       StackLength := pStackBot-pStackTop;
       StackLength := pStackBot-pStackTop;
     end;
     end;
 {$endif}
 {$endif}
+  { To be set if this is a GUI or console application }
+  IsConsole := FALSE;
+  { To be set if this is a library and not a program  }
+  IsLibrary := FALSE;
 { Setup heap }
 { Setup heap }
   InitWin16Heap;
   InitWin16Heap;
 end.
 end.