From 91130f7270777049c23f699e3924c9fff8899583 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 25 Jun 1998 11:15:33 +0000
Subject: [PATCH]   * ppu files where not closed in newppu !!     second
 compilation was impossible due to too many opened files     (not visible in
 'make cycle' as we remove all the ppu files)

---
 compiler/parser.pas   | 12 +++++++++++-
 compiler/pmodules.pas | 12 +++++++++++-
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/compiler/parser.pas b/compiler/parser.pas
index 405662b352..3765fc4b82 100644
--- a/compiler/parser.pas
+++ b/compiler/parser.pas
@@ -335,6 +335,11 @@ done:
        { close the inputfiles }
          current_module^.sourcefiles.done;
 {$endif not UseBrowser}
+         if assigned(current_module^.ppufile) then
+           begin
+              dispose(current_module^.ppufile,done);
+              current_module^.ppufile:=nil;
+           end;
          { restore scanner state }
          pattern:=oldpattern;
          token:=oldtoken;
@@ -409,7 +414,12 @@ done:
 end.
 {
   $Log$
-  Revision 1.27  1998-06-17 14:10:15  peter
+  Revision 1.28  1998-06-25 11:15:33  pierre
+    * ppu files where not closed in newppu !!
+      second compilation was impossible due to too many opened files
+      (not visible in 'make cycle' as we remove all the ppu files)
+
+  Revision 1.27  1998/06/17 14:10:15  peter
     * small os2 fixes
     * fixed interdependent units with newppu (remake3 under linux works now)
 
diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas
index b951321799..9263b741dc 100644
--- a/compiler/pmodules.pas
+++ b/compiler/pmodules.pas
@@ -269,6 +269,11 @@ unit pmodules;
            { add the files for the linker }
              addlinkerfiles(current_module);
            end;
+         if assigned(current_module^.ppufile) then
+           begin
+              dispose(current_module^.ppufile,done);
+              current_module^.ppufile:=nil;
+           end;
         end;
 
       begin
@@ -1150,7 +1155,12 @@ unit pmodules;
 end.
 {
   $Log$
-  Revision 1.32  1998-06-25 08:48:16  florian
+  Revision 1.33  1998-06-25 11:15:34  pierre
+    * ppu files where not closed in newppu !!
+      second compilation was impossible due to too many opened files
+      (not visible in 'make cycle' as we remove all the ppu files)
+
+  Revision 1.32  1998/06/25 08:48:16  florian
     * first version of rtti support
 
   Revision 1.31  1998/06/24 14:48:35  peter