paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:49:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* generate error for closefile

Browse Source
This commit is contained in:
peter 2001-08-01 21:43:11 +00:00
parent 36929fc0ce
commit 4a627c29d9
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/objpas/objpas.pp
View File

@ -102,7 +102,10 @@ end;
Procedure CloseFile(Var f:File);
begin
{ Catch Runtime error/Exception }
{$I+}
System.Close(f);
{$I-}
end;
{ Text file support }
@ -128,7 +131,10 @@ end;
Procedure CloseFile(Var t:Text);
begin
Close(T);
{ Catch Runtime error/Exception }
{$I+}
System.Close(T);
{$I-}
end;
{ Typed file supoort }
@ -349,7 +355,10 @@ end.
{
$Log$
Revision 1.5 2000-12-16 15:58:18 jonas
Revision 1.6 2001-08-01 21:43:11 peter
* generate error for closefile
Revision 1.5 2000/12/16 15:58:18 jonas
* removed warnings about possible range check errors
Revision 1.4 2000/11/13 14:41:20 marco