* iocheck for closefile

git-svn-id: trunk@3946 -

rtl/objpas/objpas.pp

@@ -120,7 +120,7 @@ begin
   System.Assign (F,C);
 end;
 
-Procedure CloseFile(Var f:File);
+Procedure CloseFile(Var f:File); [IOCheck];
 
 begin
   { Catch Runtime error/Exception }
@@ -147,7 +147,7 @@ begin
   System.Assign (T,C);
 end;
 
-Procedure CloseFile(Var t:Text);
+Procedure CloseFile(Var t:Text); [IOCheck];
 
 begin
   { Catch Runtime error/Exception }