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

* avoid infinite recursion in ProcessDefIfStruct

Browse Source
This commit is contained in:
pierre 1999-03-03 01:38:11 +00:00
parent 034eab82f3
commit 494fb5863d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/browcol.pas
View File

@ -705,11 +705,12 @@ procedure CreateBrowserCol;
objectdef :
if precdef(definition)^.symtable<>Table then
ProcessSymTable(Symbol,Symbol^.Items,pobjectdef(definition)^.publicsyms);
{ leads to infinite loops !!
pointerdef :
with ppointerdef(definition)^ do
if assigned(definition) then
if assigned(definition^.sym) then
ProcessDefIfStruct(definition^.sym^.definition);
ProcessDefIfStruct(definition^.sym^.definition);}
end;
end;
end;
@ -899,7 +900,10 @@ begin
end.
{
$Log$
Revision 1.7 1999-02-22 11:51:32 peter
Revision 1.8 1999-03-03 01:38:11 pierre
* avoid infinite recursion in ProcessDefIfStruct
Revision 1.7 1999/02/22 11:51:32 peter
* browser updates from gabor
Revision 1.6 1999/02/04 09:31:59 pierre