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

* Handles of input and output restored

Browse Source
This commit is contained in:
pierre 1998-05-28 10:21:38 +00:00
parent ab2b9506df
commit d1d7fcaba3
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/dos/crt.pp
View File

@ -858,8 +858,10 @@ begin
{ redirect the standard output }
assigncrt(Output);
Rewrite(Output);
TextRec(Output).Handle:=StdOutputHandle;
assigncrt(Input);
Reset(Input);
TextRec(Input).Handle:=StdInputHandle;
{ calculates delay calibration }
initdelay;
@ -867,7 +869,10 @@ end.
{
$Log$
Revision 1.3 1998-05-27 00:19:16 peter
Revision 1.4 1998-05-28 10:21:38 pierre
* Handles of input and output restored
Revision 1.3 1998/05/27 00:19:16 peter
* fixed crt input
Revision 1.2 1998/05/21 19:30:46 peter