* CrtOpen, CrtClose, CrtRead, CrtWrite and CrtReturn changed to procedures, instead of functions

git-svn-id: trunk@25442 -

rtl/msdos/crt.pp

@@ -637,7 +637,7 @@ begin
 end;
 
 
-Function CrtWrite(var f : textrec):integer;
+Procedure CrtWrite(var f : textrec);
 var
   i : longint;
 begin
@@ -646,11 +646,10 @@ begin
    WriteChar(f.buffer[i]);
   SetScreenCursor(CurrX,CurrY);
   f.bufpos:=0;
-  CrtWrite:=0;
 end;
 
 
-Function CrtRead(Var F: TextRec): Integer;
+Procedure CrtRead(Var F: TextRec);
 
   procedure BackSpace;
   begin
@@ -736,24 +735,21 @@ Begin
   until false;
   f.bufpos:=0;
   SetScreenCursor(CurrX,CurrY);
-  CrtRead:=0;
 End;
 
 
-Function CrtReturn(Var F: TextRec): Integer;
+Procedure CrtReturn(Var F: TextRec);
 Begin
-  CrtReturn:=0;
 end;
 
 
-Function CrtClose(Var F: TextRec): Integer;
+Procedure CrtClose(Var F: TextRec);
 Begin
   F.Mode:=fmClosed;
-  CrtClose:=0;
 End;
 
 
-Function CrtOpen(Var F: TextRec): Integer;
+Procedure CrtOpen(Var F: TextRec);
 Begin
   If F.Mode=fmOutput Then
    begin
@@ -767,7 +763,6 @@ Begin
      TextRec(F).FlushFunc:=@CrtReturn;
    end;
   TextRec(F).CloseFunc:=@CrtClose;
-  CrtOpen:=0;
 End;