paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 09:39:25 +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

8
rtl/morphos/system.pp
View File

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