paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:19:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 3937 via svnmerge from

Browse Source 
svn+ssh://marco@svn.freepascal.org/FPC/svn/fpc/trunk

........
r3937 | marco | 2006-06-25 13:17:18 +0200 (Sun, 25 Jun 2006) | 3 lines

 * fix for oldbugid 4365 new id 6279
	closefile no longer under {dollar I-}

........

git-svn-id: branches/fixes_2_0@3938 -
This commit is contained in:
marco 2006-06-25 11:20:02 +00:00
parent a75c2e8958
commit 6202422165
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/objpas.pp
View File

@ -121,9 +121,7 @@ Procedure CloseFile(Var f:File);
begin begin
{ Catch Runtime error/Exception } { Catch Runtime error/Exception }
{$I+}
System.Close(f); System.Close(f);
{$I-}
end; end;
{ Text file support } { Text file support }
@ -150,12 +148,10 @@ Procedure CloseFile(Var t:Text);
begin begin
{ Catch Runtime error/Exception } { Catch Runtime error/Exception }
{$I+}
System.Close(T); System.Close(T);
{$I-}
end; end;
{ Typed file supoort } { Typed file support }
Procedure AssignFile(Var f:TypedFile;const Name:string); Procedure AssignFile(Var f:TypedFile;const Name:string);