paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 14:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@31610 -
This commit is contained in:
nickysn 2015-09-11 21:48:20 +00:00
parent 694d93d011
commit 9997ee54fb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/win16/system.pp
View File

@ -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.