paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-08 12:59:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

* close include files immediately after end reading

Browse Source 
instead of waiting until unit compilation ended !
This commit is contained in:
pierre 1998-10-15 12:22:23 +00:00
parent 2312760103
commit 23b80f41dc
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/files.pas
View File

@ -320,7 +320,8 @@ unit files;
begin begin
if is_macro then if is_macro then
begin begin
Freemem(buf,maxbufsize); if assigned(buf) then
Freemem(buf,maxbufsize);
buf:=nil; buf:=nil;
{is_macro:=false; {is_macro:=false;
still needed for dispose in scanner PM } still needed for dispose in scanner PM }
@ -1021,7 +1022,11 @@ unit files;
end. end.
{ {
$Log$ $Log$
Revision 1.64 1998-10-14 13:38:19 peter Revision 1.65 1998-10-15 12:22:25 pierre
* close include files immediately after end reading
instead of waiting until unit compilation ended !
Revision 1.64 1998/10/14 13:38:19 peter
* fixed path with staticlib/objects in ppufiles * fixed path with staticlib/objects in ppufiles
Revision 1.63 1998/10/14 11:02:49 daniel Revision 1.63 1998/10/14 11:02:49 daniel

8
compiler/scanner.pas
View File

@ -319,6 +319,8 @@ implementation
to_dispose:=inputfile to_dispose:=inputfile
else else
to_dispose:=nil; to_dispose:=nil;
{ we can allways close the file, no ? }
inputfile^.close;
inputfile:=inputfile^.next; inputfile:=inputfile^.next;
if assigned(to_dispose) then if assigned(to_dispose) then
dispose(to_dispose,done); dispose(to_dispose,done);
@ -1449,7 +1451,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.61 1998-10-09 11:08:15 peter Revision 1.62 1998-10-15 12:22:23 pierre
* close include files immediately after end reading
instead of waiting until unit compilation ended !
Revision 1.61 1998/10/09 11:08:15 peter
* fixed inputfile^.name^ bug * fixed inputfile^.name^ bug
Revision 1.60 1998/10/09 08:56:31 pierre Revision 1.60 1998/10/09 08:56:31 pierre