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

* fixed crash

Browse Source 
* check if localbrowser is set
This commit is contained in:
peter 1999-04-29 09:36:55 +00:00
parent 7b94465fba
commit adc2a8397d
1 changed files with 24 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
compiler/browcol.pas
View File

@ -909,7 +909,7 @@ procedure CreateBrowserCol;
if precdef(definition)^.symtable<>Table then
ProcessSymTable(Symbol,Symbol^.Items,precdef(definition)^.symtable);
objectdef :
if precdef(definition)^.symtable<>Table then
if pobjectdef(definition)^.publicsyms<>Table then
ProcessSymTable(Symbol,Symbol^.Items,pobjectdef(definition)^.publicsyms);
{ leads to infinite loops !!
pointerdef :
@ -927,16 +927,18 @@ procedure CreateBrowserCol;
Exit;
if Owner=nil then
Owner:=New(PSortedSymbolCollection, Init(10,50));
{$ifdef OLDPPU}
defcount:=Table^.number_defs;
symcount:=Table^.number_symbols;
{ for I:=0 to defcount-1 do
begin
Def:=Table^.GetDefNr(I);
end;}
for I:=1 to symcount do
begin
Sym:=Table^.GetsymNr(I);
if Sym=nil then Continue;
{$else}
sym:=psym(Table^.symindex^.first);
while assigned(sym) do
begin
{$endif}
ParamCount:=0;
New(Symbol, Init(Sym^.Name,Sym^.Typ,'',nil));
case Sym^.Typ of
@ -984,7 +986,8 @@ procedure CreateBrowserCol;
with pprocsym(sym)^ do
if assigned(definition) then
begin
ProcessSymTable(Symbol,Symbol^.Items,definition^.parast);
if cs_local_browser in aktmoduleswitches then
ProcessSymTable(Symbol,Symbol^.Items,definition^.parast);
if assigned(definition^.parast) then
begin
Symbol^.Params:=TypeNames^.Add(GetAbsProcParmDefStr(definition));
@ -995,9 +998,12 @@ procedure CreateBrowserCol;
begin
Symbol^.Params:=TypeNames^.Add('...');
end;
if assigned(definition^.localst) and
(definition^.localst^.symtabletype<>staticsymtable) then
ProcessSymTable(Symbol,Symbol^.Items,definition^.localst);
if cs_local_browser in aktmoduleswitches then
begin
if assigned(definition^.localst) and
(definition^.localst^.symtabletype<>staticsymtable) then
ProcessSymTable(Symbol,Symbol^.Items,definition^.localst);
end;
end;
end;
typesym :
@ -1050,7 +1056,10 @@ procedure CreateBrowserCol;
Ref:=Ref^.nextref;
end;
if Assigned(Symbol) then
Owner^.Insert(Symbol);
Owner^.Insert(Symbol);
{$ifndef OLDPPU}
sym:=psym(sym^.next);
{$endif}
end;
end;
@ -1232,7 +1241,11 @@ begin
end.
{
$Log$
Revision 1.14 1999-04-15 09:01:32 peter
Revision 1.15 1999-04-29 09:36:55 peter
* fixed crash
* check if localbrowser is set
Revision 1.14 1999/04/15 09:01:32 peter
* fixed set loading
* object inheritance support for browser