소스 검색

* 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