Merged revisions 3946 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r3946 | marco | 2006-06-25 20:36:12 +0200 (Sun, 25 Jun 2006) | 1 line

 * iocheck for closefile
........

git-svn-id: branches/fixes_2_0@3960 -

rtl/objpas/objpas.pp

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