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

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

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

8
rtl/morphos/system.pp
View File

@ -372,11 +372,13 @@ begin
MOS_ConHandle:=0; MOS_ConHandle:=0;
StdInputHandle:=dosInput; StdInputHandle:=dosInput;
StdOutputHandle:=dosOutput; StdOutputHandle:=dosOutput;
StdErrorHandle:=StdOutputHandle;
end else begin end else begin
MOS_ConHandle:=Open(MOS_ConName,MODE_OLDFILE); MOS_ConHandle:=Open(MOS_ConName,MODE_OLDFILE);
if MOS_ConHandle<>0 then begin if MOS_ConHandle<>0 then begin
StdInputHandle:=MOS_ConHandle; StdInputHandle:=MOS_ConHandle;
StdOutputHandle:=MOS_ConHandle; StdOutputHandle:=MOS_ConHandle;
StdErrorHandle:=MOS_ConHandle;
end else end else
Halt(1); Halt(1);
end; end;
@ -389,10 +391,8 @@ begin
OpenStdIO(Output,fmOutput,StdOutputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdOut,fmOutput,StdOutputHandle);
{ * MorphOS doesn't have a separate stderr, just like AmigaOS (???) * } OpenStdIO(StdErr,fmOutput,StdErrorHandle);
StdErrorHandle:=StdOutputHandle; OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
// OpenStdIO(StdErr,fmOutput,StdErrorHandle);
// OpenStdIO(ErrOutput,fmOutput,StdErrorHandle);
end; end;
function GetProcessID: SizeUInt; function GetProcessID: SizeUInt;