paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 18:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* DosWrite only possible under non-PM apps

Browse Source 
git-svn-id: trunk@1732 -
This commit is contained in:
Tomas Hajny 2005-11-13 17:30:18 +00:00
parent dac22b4703
commit 7ab72f43b3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/os2/system.pas
View File

@ -774,7 +774,8 @@ begin
begin
Str (RC, ErrStr);
ErrStr := 'Error during heap initialization (DosAllocMem - ' + ErrStr + ')!!'#13#10;
DosWrite (2, @ErrStr [1], Length (ErrStr), RC);
if IsConsole then
DosWrite (2, @ErrStr [1], Length (ErrStr), RC);
HandleError (204);
end
else