From 2b888374ce565788c35bdb84c194296a2127fc81 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 26 Apr 2003 00:30:27 +0000
Subject: [PATCH]   * don't close inputfile when still closed

---
 compiler/scanner.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 478a261c4d..20635d3df2 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1034,6 +1034,8 @@ implementation
 
     procedure tscannerfile.tempcloseinputfile;
       begin
+        if inputfile.closed then
+         exit;
         inputfile.setpos(inputstart+(inputpointer-inputbuffer));
         inputfile.tempclose;
       { reset buffer }
@@ -2801,7 +2803,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.57  2003-01-09 21:52:37  peter
+  Revision 1.58  2003-04-26 00:30:27  peter
+    * don't close inputfile when still closed
+
+  Revision 1.57  2003/01/09 21:52:37  peter
     * merged some verbosity options.
     * V_LineInfo is a verbosity flag to include line info