paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 05:46:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for compiling with 0.99.8 due circular units

Browse Source
This commit is contained in:
peter 1998-10-06 22:09:48 +00:00
parent 3d984e5bf1
commit a79c851bb9
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/files.pas
View File

@ -185,7 +185,11 @@ unit files;
implementation
uses
dos,verbose,symtable,systems;
dos,verbose,systems
{$ifndef VER0_99_8}
,symtable
{$endif}
;
{****************************************************************************
TINPUTFILE
@ -882,8 +886,10 @@ unit files;
stringdispose(modulename);
stringdispose(mainsource);
stringdispose(asmprefix);
{$ifndef VER0_99_8}
if assigned(symtable) then
dispose(punitsymtable(symtable),done);
{$endif}
inherited done;
end;
@ -927,7 +933,10 @@ unit files;
end.
{
$Log$
Revision 1.51 1998-10-06 17:16:47 pierre
Revision 1.52 1998-10-06 22:09:48 peter
* fixed for compiling with 0.99.8 due circular units
Revision 1.51 1998/10/06 17:16:47 pierre
* some memory leaks fixed (thanks to Peter for heaptrc !)
Revision 1.50 1998/09/30 16:43:34 peter