paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 07:22:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix for unitsym problem

Browse Source
This commit is contained in:
pierre 1999-05-04 16:05:13 +00:00
parent 0fc900da28
commit 0d11d01b8d
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/symsym.inc
View File

@ -338,10 +338,31 @@
prevsym:=nil;
end;
{ we need to remove it from the prevsym chain ! }
destructor tunitsym.done;
var pus,ppus : punitsym;
begin
if assigned(unitsymtable) and (unitsymtable^.unitsym=@self) then
unitsymtable^.unitsym:=prevsym;
if assigned(unitsymtable) then
begin
ppus:=nil;
pus:=unitsymtable^.unitsym;
if pus=@self then
unitsymtable^.unitsym:=prevsym
else while assigned(pus) do
begin
if pus=@self then
begin
ppus^.prevsym:=prevsym;
break;
end
else
begin
ppus:=pus;
pus:=ppus^.prevsym;
end;
end;
end;
inherited done;
end;
@ -1951,7 +1972,10 @@
{
$Log$
Revision 1.83 1999-04-28 06:02:13 florian
Revision 1.84 1999-05-04 16:05:13 pierre
* fix for unitsym problem
Revision 1.83 1999/04/28 06:02:13 florian
* changes of Bruessel:
+ message handler can now take an explicit self
* typinfo fixed: sometimes the type names weren't written