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

+ initialize more stuff in the msdos system unit startup

Browse Source 
git-svn-id: branches/i8086@24065 -
This commit is contained in:
nickysn 2013-03-30 03:02:14 +00:00
parent 324b4a8a0a
commit 8f71f3b5fd
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/msdos/system.pp
View File

@ -161,7 +161,14 @@ end;
begin begin
StackLength := CheckInitialStkLen(InitialStkLen); StackLength := CheckInitialStkLen(InitialStkLen);
StackBottom := __stkbottom; StackBottom := __stkbottom;
{ To be set if this is a GUI or console application }
IsConsole := TRUE;
{ To be set if this is a library and not a program }
IsLibrary := FALSE;
SysInitExceptions;
initunicodestringmanager; initunicodestringmanager;
{ Setup stdin, stdout and stderr } { Setup stdin, stdout and stderr }
SysInitStdIO; SysInitStdIO;
{ Reset IO Error }
InOutRes:=0;
end. end.