+ stdout, which is needed when you write something in the system unit

    to the screen. Like the runtime error

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
 

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
 

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

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

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 !)

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

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

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 }

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 !)