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

unitsym finally problem fixed

Browse Source
This commit is contained in:
pierre 1999-05-10 15:02:51 +00:00
parent 7b64448f59
commit 741bb5b9a2
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/symtable.pas
View File

@ -232,6 +232,7 @@ unit symtable;
{$endif GDB} {$endif GDB}
constructor init(t : tsymtabletype;const n : string); constructor init(t : tsymtabletype;const n : string);
constructor loadasunit; constructor loadasunit;
destructor done;virtual;
procedure writeasunit; procedure writeasunit;
{$ifdef GDB} {$ifdef GDB}
{$ifdef OLDPPU} {$ifdef OLDPPU}
@ -2657,6 +2658,12 @@ const localsymtablestack : psymtable = nil;
end; end;
destructor tunitsymtable.done;
begin
unitsym:=nil;
inherited done;
end;
procedure tunitsymtable.load_symtable_refs; procedure tunitsymtable.load_symtable_refs;
var var
b : byte; b : byte;
@ -3217,7 +3224,10 @@ const localsymtablestack : psymtable = nil;
end. end.
{ {
$Log$ $Log$
Revision 1.10 1999-05-09 12:46:26 peter Revision 1.11 1999-05-10 15:02:51 pierre
unitsym finally problem fixed
Revision 1.10 1999/05/09 12:46:26 peter
+ hint where a duplicate sym is already defined + hint where a duplicate sym is already defined
Revision 1.9 1999/05/08 19:52:40 peter Revision 1.9 1999/05/08 19:52:40 peter