paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 13:20:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ fixed missing SysInitStdIO

Browse Source
This commit is contained in:
florian 2003-01-05 20:06:30 +00:00
parent cc042060e0
commit 4051df8494
1 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
rtl/beos/system.pp
View File

@ -496,6 +496,19 @@ end;
SystemUnit Initialization
*****************************************************************************}
procedure SysInitStdIO;
begin
{ Setup stdin, stdout and stderr, for GUI apps redirect stderr,stdout to be
displayed in and messagebox }
StdInputHandle:=0;
StdOutputHandle:=1;
StdErrorHandle:=2;
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
end;
begin
{ Setup heap }
zero:=0;
@ -506,29 +519,26 @@ begin
if heap_handle>0 then begin
InitHeap;
end else system_exit;
SysInitExceptions;
{ Setup IO }
StdInputHandle:=0;
StdOutputHandle:=1;
StdErrorHandle:=2;
OpenStdIO(Input,fmInput,StdInputHandle);
OpenStdIO(Output,fmOutput,StdOutputHandle);
OpenStdIO(StdOut,fmOutput,StdOutputHandle);
OpenStdIO(StdErr,fmOutput,StdErrorHandle);
SysInitStdIO;
{ Reset IO Error }
InOutRes:=0;
{$ifdef HASVARIANT}
initvariantmanager;
{$endif HASVARIANT}
{$endif HASVARIANT}
end.
{
$Log$
Revision 1.5 2002-10-13 09:25:31 florian
Revision 1.6 2003-01-05 20:06:30 florian
+ fixed missing SysInitStdIO
Revision 1.5 2002/10/13 09:25:31 florian
+ call to initvariantmanager inserted
Revision 1.4 2002/09/07 16:01:17 peter
* old logs removed and tabs fixed
}
}