Преглед на файлове

* Handles of input and output restored

pierre преди 27 години
родител
ревизия
d1d7fcaba3
променени са 1 файла, в които са добавени 6 реда и са изтрити 1 реда
  1. 6 1
      rtl/dos/crt.pp

+ 6 - 1
rtl/dos/crt.pp

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