Merged revisions 3937 via svnmerge from

svn+ssh://[email protected]/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 -

rtl/objpas/objpas.pp

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