浏览代码

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

git-svn-id: trunk@31610 -
nickysn 10 年之前
父节点
当前提交
9997ee54fb
共有 1 个文件被更改,包括 4 次插入0 次删除
  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.