paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-25 04:09:45 +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 if AOS_wbMsg=nil then begin
StdInputHandle:=dosInput; StdInputHandle:=dosInput;
StdOutputHandle:=dosOutput; StdOutputHandle:=dosOutput;
StdErrorHandle:=StdOutputHandle;
end else begin end else begin
AOS_ConHandle:=Open(AOS_ConName,MODE_OLDFILE); AOS_ConHandle:=Open(AOS_ConName,MODE_OLDFILE);
if AOS_ConHandle<>0 then begin if AOS_ConHandle<>0 then begin
StdInputHandle:=AOS_ConHandle; StdInputHandle:=AOS_ConHandle;
StdOutputHandle:=AOS_ConHandle; StdOutputHandle:=AOS_ConHandle;
StdErrorHandle:=AOS_ConHandle;
end else end else
Halt(1); Halt(1);
end; end;
@ -377,11 +379,8 @@ begin
OpenStdIO(Output,fmOutput,StdOutputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdOut,fmOutput,StdOutputHandle);
{ * AmigaOS doesn't have a separate stderr * } OpenStdIO(StdErr,fmOutput,StdErrorHandle);
OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
StdErrorHandle:=StdOutputHandle;
//OpenStdIO(StdErr,fmOutput,StdErrorHandle);
//OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
end; end;
function GetProcessID: SizeUInt; function GetProcessID: SizeUInt;