Sfoglia il codice sorgente

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

git-svn-id: trunk@31610 -
nickysn 10 anni fa
parent
commit
9997ee54fb
1 ha cambiato i file con 4 aggiunte e 0 eliminazioni
  1. 4 0
      rtl/win16/system.pp

+ 4 - 0
rtl/win16/system.pp

@@ -328,6 +328,10 @@ begin
       StackLength := pStackBot-pStackTop;
     end;
 {$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 }
   InitWin16Heap;
 end.