paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 20:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga: use stdout as stderr, so code which is wired to use stderr doesn't commit suicide

Browse Source 
git-svn-id: trunk@30788 -
This commit is contained in:
Károly Balogh 2015-05-03 17:41:20 +00:00
parent 6e5af0b31e
commit 3edad2774a
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/amiga/system.pp
View File

@ -360,11 +360,13 @@ begin
if AOS_wbMsg=nil then begin
StdInputHandle:=dosInput;
StdOutputHandle:=dosOutput;
StdErrorHandle:=StdOutputHandle;
end else begin
AOS_ConHandle:=Open(AOS_ConName,MODE_OLDFILE);
if AOS_ConHandle<>0 then begin
StdInputHandle:=AOS_ConHandle;
StdOutputHandle:=AOS_ConHandle;
StdErrorHandle:=AOS_ConHandle;
end else
Halt(1);
end;
@ -377,11 +379,8 @@ begin
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
{ * AmigaOS doesn't have a separate stderr * }
StdErrorHandle:=StdOutputHandle;
//OpenStdIO(StdErr,fmOutput,StdErrorHandle);
//OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
end;
function GetProcessID: SizeUInt;