paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 11:58:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reinstate code dealing with browser switches

Browse Source 
git-svn-id: trunk@6146 -
This commit is contained in:
pierre 2007-01-23 05:53:30 +00:00
parent 30cdc88e5f
commit 35648b3de5
1 changed files with 26 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/browcol.pas
View File

@ -271,7 +271,8 @@ uses
verbose, verbose,
{$endif DEBUG} {$endif DEBUG}
finput,fmodule, finput,fmodule,
cpuinfo,cgbase,aasmbase,aasmtai,aasmdata,paramgr, crefs,cpuinfo,cgbase,
aasmbase,aasmtai,aasmdata,paramgr,
symsym,symdef,symtype,symbase,defutil; symsym,symdef,symtype,symbase,defutil;
const const
@ -1236,11 +1237,8 @@ end;
Symbol: PSymbol; Symbol: PSymbol;
Reference: PReference; Reference: PReference;
inputfile : Tinputfile; inputfile : Tinputfile;
{$ifdef use_refs} Ref : TRefItem;
Ref : defref;
{$else not use_refs}
DefPos : TFilePosInfo; DefPos : TFilePosInfo;
{$endif not use_refs}
procedure SetVType(Symbol: PSymbol; VType: string); procedure SetVType(Symbol: PSymbol; VType: string);
begin begin
Symbol^.VType:=TypeNames^.Add(VType); Symbol^.VType:=TypeNames^.Add(VType);
@ -1637,7 +1635,7 @@ end;
begin begin
Symbol^.Params:=TypeNames^.Add('...'); Symbol^.Params:=TypeNames^.Add('...');
end; end;
// if cs_local_browser in current_settings.moduleswitches then if cs_local_browser in current_settings.moduleswitches then
begin begin
if assigned(pd.localst) and if assigned(pd.localst) and
(pd.localst.symtabletype<>staticsymtable) then (pd.localst.symtabletype<>staticsymtable) then
@ -1693,29 +1691,32 @@ end;
end; end;
end; end;
end; end;
{$ifdef use_refs} if assigned(sym) then
Ref:=tstoredsym(sym).defref;
while Assigned(Symbol) and assigned(Ref) do
begin begin
inputfile:=get_source_file(ref.moduleindex,ref.posinfo.fileindex); DefPos:=tstoredsym(sym).FileInfo;
inputfile:=get_source_file(defpos.moduleindex,defpos.fileindex);
if Assigned(inputfile) and Assigned(inputfile.name) then if Assigned(inputfile) and Assigned(inputfile.name) then
begin begin
New(Reference, Init(ModuleNames^.Add(inputfile.name^), New(Reference, Init(ModuleNames^.Add(inputfile.name^),
ref.posinfo.line,ref.posinfo.column)); DefPos.line,DefPos.column));
Symbol^.References^.Insert(Reference); Symbol^.References^.Insert(Reference);
end; end;
Ref:=Ref.nextref;
end; end;
{$else not use_refs} if assigned(Symbol) and assigned(sym.RefList) then
DefPos:=tstoredsym(sym).FileInfo;
inputfile:=get_source_file(current_moduleindex,defpos.fileindex);
if Assigned(inputfile) and Assigned(inputfile.name) then
begin begin
New(Reference, Init(ModuleNames^.Add(inputfile.name^), Ref:=TRefItem(tstoredsym(sym).RefList.First);
DefPos.line,DefPos.column)); while assigned(Ref) do
Symbol^.References^.Insert(Reference); begin
inputfile:=get_source_file(ref.refinfo.moduleindex,ref.refinfo.fileindex);
if Assigned(inputfile) and Assigned(inputfile.name) then
begin
New(Reference, Init(ModuleNames^.Add(inputfile.name^),
ref.refinfo.line,ref.refinfo.column));
Symbol^.References^.Insert(Reference);
end;
Ref:=TRefItem(Ref.next);
end;
end; end;
{$endif use_refs}
if Assigned(Symbol) then if Assigned(Symbol) then
begin begin
(* if not Owner^.Search(Symbol,J) then *) (* if not Owner^.Search(Symbol,J) then *)
@ -1755,10 +1756,10 @@ var
pif: tinputfile; pif: tinputfile;
begin begin
DisposeBrowserCol; DisposeBrowserCol;
// if (cs_browser in current_settings.moduleswitches) then if (cs_browser in current_settings.moduleswitches) then
NewBrowserCol; NewBrowserCol;
hp:=tmodule(loaded_units.first); hp:=tmodule(loaded_units.first);
// if (cs_browser in current_settings.moduleswitches) then if (cs_browser in current_settings.moduleswitches) then
while assigned(hp) do while assigned(hp) do
begin begin
current_moduleindex:=hp.unit_index; current_moduleindex:=hp.unit_index;
@ -1791,7 +1792,7 @@ begin
Modules^.Insert(UnitS); Modules^.Insert(UnitS);
ProcessSymTable(UnitS,UnitS^.Items,T); ProcessSymTable(UnitS,UnitS^.Items,T);
if hp.is_unit then if hp.is_unit then
// if cs_local_browser in current_settings.moduleswitches then if cs_local_browser in current_settings.moduleswitches then
begin begin
t:=tsymtable(hp.localsymtable); t:=tsymtable(hp.localsymtable);
if assigned(t) then if assigned(t) then
@ -1802,7 +1803,7 @@ begin
end; end;
hp:=tmodule(loaded_units.first); hp:=tmodule(loaded_units.first);
// if (cs_browser in current_settings.moduleswitches) then if (cs_browser in current_settings.moduleswitches) then
while assigned(hp) do while assigned(hp) do
begin begin
t:=tsymtable(hp.globalsymtable); t:=tsymtable(hp.globalsymtable);
@ -1832,7 +1833,7 @@ begin
hp:=tmodule(hp.next); hp:=tmodule(hp.next);
end; end;
//if (cs_browser in current_settings.moduleswitches) then if (cs_browser in current_settings.moduleswitches) then
BuildObjectInfo; BuildObjectInfo;
{ can allways be done { can allways be done
needed to know when recompilation of sources is necessary } needed to know when recompilation of sources is necessary }