paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-27 11:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ppu files where not closed in newppu !!

Browse Source 
second compilation was impossible due to too many opened files
    (not visible in 'make cycle' as we remove all the ppu files)
This commit is contained in:
pierre 1998-06-25 11:15:33 +00:00
parent e64d70d4cd
commit 91130f7270
2 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/parser.pas
View File

@ -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)

12
compiler/pmodules.pas
View File

@ -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