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

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

Browse Source 
to the screen. Like the runtime error
This commit is contained in:
peter 1998-12-28 15:50:42 +00:00
parent 88599f754f
commit f11d46a93e
9 changed files with 49 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/amiga/sysamiga.pas
View File

@ -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

7
rtl/atari/sysatari.pas
View File

@ -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

7
rtl/go32v1/system.pp
View File

@ -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

7
rtl/go32v2/system.pp
View File

@ -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

8
rtl/inc/system.inc
View File

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

7
rtl/inc/systemh.inc
View File

@ -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

7
rtl/linux/syslinux.pp
View File

@ -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

1
rtl/os2/sysos2.pas
View File

@ -724,6 +724,7 @@ begin
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
{ kein Ein- Ausgabefehler }

7
rtl/win32/syswin32.pp
View File

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