From 2ebd9f20b5a4946e0c45a5d1d1544fe775585cd3 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 12 Nov 2003 16:57:59 +0000
Subject: [PATCH]   * do nothing for macro's in tempcloseinput,tempopeninput

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

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 829bce8469..3c48b67e00 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1127,6 +1127,8 @@ implementation
 
     function tscannerfile.tempopeninputfile:boolean;
       begin
+        if inputfile.is_macro then
+          exit;
         tempopeninputfile:=inputfile.tempopen;
       { reload buffer }
         inputbuffer:=inputfile.buf;
@@ -1137,7 +1139,7 @@ implementation
 
     procedure tscannerfile.tempcloseinputfile;
       begin
-        if inputfile.closed then
+        if inputfile.closed or inputfile.is_macro then
          exit;
         inputfile.setpos(inputstart+(inputpointer-inputbuffer));
         inputfile.tempclose;
@@ -2929,7 +2931,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.65  2003-11-10 19:08:59  peter
+  Revision 1.66  2003-11-12 16:57:59  peter
+    * do nothing for macro's in tempcloseinput,tempopeninput
+
+  Revision 1.65  2003/11/10 19:08:59  peter
     + $IF DECLARED() added
 
   Revision 1.64  2003/11/10 19:08:32  peter