浏览代码

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 -

peter 19 年之前
父节点
当前提交
6156805ad1
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      rtl/objpas/objpas.pp

+ 2 - 2
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 }