From 1af9338130706adbf61d831adc0485df8e8c7c61 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 11 Aug 1998 14:04:33 +0000
Subject: [PATCH]   * auto close an open file and better error msg

---
 compiler/scanner.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 2de68ced03..72511199b1 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -335,7 +335,7 @@ implementation
         maxlinebuf:=0;
       { load block }
         if not open then
-         Message(scan_f_cannot_open_input);
+         Message1(scan_f_cannot_open_input,fn);
         reload;
       end;
 
@@ -385,7 +385,7 @@ implementation
       begin
         open:=false;
         if not closed then
-         exit;
+         Close;
         ofm:=filemode;
         filemode:=0;
         Assign(f,inputfile^.path^+inputfile^.name^);
@@ -1548,7 +1548,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.39  1998-08-10 14:50:26  peter
+  Revision 1.40  1998-08-11 14:04:33  peter
+    * auto close an open file and better error msg
+
+  Revision 1.39  1998/08/10 14:50:26  peter
     + localswitches, moduleswitches, globalswitches splitting
 
   Revision 1.38  1998/08/10 10:18:34  peter