From f11d46a93e99ca13a7ec3f51aa31118465e7dc48 Mon Sep 17 00:00:00 2001 From: peter Date: Mon, 28 Dec 1998 15:50:42 +0000 Subject: [PATCH] + stdout, which is needed when you write something in the system unit to the screen. Like the runtime error --- rtl/amiga/sysamiga.pas | 7 ++++++- rtl/atari/sysatari.pas | 7 ++++++- rtl/go32v1/system.pp | 7 ++++++- rtl/go32v2/system.pp | 7 ++++++- rtl/inc/system.inc | 8 ++++++-- rtl/inc/systemh.inc | 7 ++++++- rtl/linux/syslinux.pp | 7 ++++++- rtl/os2/sysos2.pas | 1 + rtl/win32/syswin32.pp | 7 ++++++- 9 files changed, 49 insertions(+), 9 deletions(-) diff --git a/rtl/amiga/sysamiga.pas b/rtl/amiga/sysamiga.pas index f279a863aa..c24c2cfc1b 100644 --- a/rtl/amiga/sysamiga.pas +++ b/rtl/amiga/sysamiga.pas @@ -1785,6 +1785,7 @@ begin { Setup stdin, stdout and stderr } OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); { The Amiga does not seem to have a StdError } { handle, therefore make the StdError handle } { equal to the StdOutputHandle. } @@ -1812,7 +1813,11 @@ end. { $Log$ - Revision 1.10 1998-09-14 10:48:00 peter + Revision 1.11 1998-12-28 15:50:42 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.10 1998/09/14 10:48:00 peter * FPC_ names * Heap manager is now system independent diff --git a/rtl/atari/sysatari.pas b/rtl/atari/sysatari.pas index 2ade77deac..b3586e1a8b 100644 --- a/rtl/atari/sysatari.pas +++ b/rtl/atari/sysatari.pas @@ -721,6 +721,7 @@ begin { Setup stdin, stdout and stderr } OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { Reset IO Error } InOutRes:=0; @@ -731,7 +732,11 @@ end. { $Log$ - Revision 1.9 1998-09-14 10:48:02 peter + Revision 1.10 1998-12-28 15:50:43 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.9 1998/09/14 10:48:02 peter * FPC_ names * Heap manager is now system independent diff --git a/rtl/go32v1/system.pp b/rtl/go32v1/system.pp index aca2d917cd..798532ce34 100644 --- a/rtl/go32v1/system.pp +++ b/rtl/go32v1/system.pp @@ -606,13 +606,18 @@ Begin { Setup stdin, stdout and stderr } OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { Reset IO Error } InOutRes:=0; End. { $Log$ - Revision 1.1 1998-12-21 13:07:02 peter + Revision 1.2 1998-12-28 15:50:44 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.1 1998/12/21 13:07:02 peter * use -FE Revision 1.12 1998/12/15 22:42:51 peter diff --git a/rtl/go32v2/system.pp b/rtl/go32v2/system.pp index 99ff0dc7c7..d1fe9189e0 100644 --- a/rtl/go32v2/system.pp +++ b/rtl/go32v2/system.pp @@ -1216,6 +1216,7 @@ Begin { Setup stdin, stdout and stderr } OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { Setup environment and arguments } Setup_Environment; @@ -1227,7 +1228,11 @@ Begin End. { $Log$ - Revision 1.2 1998-12-21 14:22:02 pierre + Revision 1.3 1998-12-28 15:50:45 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.2 1998/12/21 14:22:02 pierre * old_int?? transformed to cvar to be readable by dpmiexcp Revision 1.1 1998/12/21 13:07:03 peter diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc index e4902a4f72..ef062265c1 100644 --- a/rtl/inc/system.inc +++ b/rtl/inc/system.inc @@ -381,7 +381,7 @@ Begin End; If erroraddr<>nil Then Begin - Writeln('Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8)); + Writeln(stdout,'Run time error ',Errorcode,' at 0x',hexstr(Longint(Erroraddr),8)); dump_stack(ErrorBase); End; End; @@ -468,7 +468,11 @@ end; { $Log$ - Revision 1.49 1998-12-21 14:28:21 pierre + Revision 1.50 1998-12-28 15:50:46 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.49 1998/12/21 14:28:21 pierre * HandleError -> HandleErrorFrame to avoid problem in assembler code in i386.inc (call to overloaded function in assembler block !) diff --git a/rtl/inc/systemh.inc b/rtl/inc/systemh.inc index 6593f3667c..b93893fc3d 100644 --- a/rtl/inc/systemh.inc +++ b/rtl/inc/systemh.inc @@ -114,6 +114,7 @@ var { Standard In- and Output } Output, Input, + StdOut, StdErr : Text; ExitCode, InOutRes : Word; @@ -429,7 +430,11 @@ const { $Log$ - Revision 1.45 1998-12-15 22:43:04 peter + Revision 1.46 1998-12-28 15:50:48 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.45 1998/12/15 22:43:04 peter * removed temp symbols Revision 1.44 1998/11/27 14:50:57 peter diff --git a/rtl/linux/syslinux.pp b/rtl/linux/syslinux.pp index eeb61327d3..14b66fc4a8 100644 --- a/rtl/linux/syslinux.pp +++ b/rtl/linux/syslinux.pp @@ -723,6 +723,7 @@ Begin { Setup stdin, stdout and stderr } OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { Reset IO Error } InOutRes:=0; @@ -730,7 +731,11 @@ End. { $Log$ - Revision 1.20 1998-12-18 17:21:34 peter + Revision 1.21 1998-12-28 15:50:49 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.20 1998/12/18 17:21:34 peter * fixed io-error handling Revision 1.19 1998/12/15 22:43:08 peter diff --git a/rtl/os2/sysos2.pas b/rtl/os2/sysos2.pas index 0ff5bd1061..06da209113 100644 --- a/rtl/os2/sysos2.pas +++ b/rtl/os2/sysos2.pas @@ -724,6 +724,7 @@ begin OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { kein Ein- Ausgabefehler } diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp index 5b137f489c..96b4c5055a 100644 --- a/rtl/win32/syswin32.pp +++ b/rtl/win32/syswin32.pp @@ -940,6 +940,7 @@ begin StdErrorHandle:=longint(GetStdHandle(STD_ERROR_HANDLE)); OpenStdIO(Input,fmInput,StdInputHandle); OpenStdIO(Output,fmOutput,StdOutputHandle); + OpenStdIO(StdOut,fmOutput,StdOutputHandle); OpenStdIO(StdErr,fmOutput,StdErrorHandle); { Arguments } setup_arguments; @@ -951,7 +952,11 @@ end. { $Log$ - Revision 1.30 1998-12-21 14:28:23 pierre + Revision 1.31 1998-12-28 15:50:51 peter + + stdout, which is needed when you write something in the system unit + to the screen. Like the runtime error + + Revision 1.30 1998/12/21 14:28:23 pierre * HandleError -> HandleErrorFrame to avoid problem in assembler code in i386.inc (call to overloaded function in assembler block !)