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

* fixed warnings and removed unused "Current_moduleIndex" global variable

Browse Source 
(patch by Alexander S. Klenin, mantis #13618)

git-svn-id: trunk@13063 -
This commit is contained in:
Jonas Maebe 2009-04-30 15:32:28 +00:00
parent 6e72451e63
commit 2635212ebc
1 changed files with 27 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
compiler/browcol.pas
View File

@ -280,71 +280,81 @@ const
ObjType: 3001;
VmtLink: Ofs(TypeOf(TModuleNameCollection)^);
Load: @TModuleNameCollection.Load;
Store: @TModuleNameCollection.Store
Store: @TModuleNameCollection.Store;
Next: nil
);
RTypeNameCollection: TStreamRec = (
ObjType: 3002;
VmtLink: Ofs(TypeOf(TTypeNameCollection)^);
Load: @TTypeNameCollection.Load;
Store: @TTypeNameCollection.Store
Store: @TTypeNameCollection.Store;
Next: nil
);
RReference: TStreamRec = (
ObjType: 3003;
VmtLink: Ofs(TypeOf(TReference)^);
Load: @TReference.Load;
Store: @TReference.Store
Store: @TReference.Store;
Next: nil
);
RSymbol: TStreamRec = (
ObjType: 3004;
VmtLink: Ofs(TypeOf(TSymbol)^);
Load: @TSymbol.Load;
Store: @TSymbol.Store
Store: @TSymbol.Store;
Next: nil
);
RObjectSymbol: TStreamRec = (
ObjType: 3005;
VmtLink: Ofs(TypeOf(TObjectSymbol)^);
Load: @TObjectSymbol.Load;
Store: @TObjectSymbol.Store
Store: @TObjectSymbol.Store;
Next: nil
);
RSymbolCollection: TStreamRec = (
ObjType: 3006;
VmtLink: Ofs(TypeOf(TSymbolCollection)^);
Load: @TSymbolCollection.Load;
Store: @TSymbolCollection.Store
Store: @TSymbolCollection.Store;
Next: nil
);
RSortedSymbolCollection: TStreamRec = (
ObjType: 3007;
VmtLink: Ofs(TypeOf(TSortedSymbolCollection)^);
Load: @TSortedSymbolCollection.Load;
Store: @TSortedSymbolCollection.Store
Store: @TSortedSymbolCollection.Store;
Next: nil
);
RIDSortedSymbolCollection: TStreamRec = (
ObjType: 3008;
VmtLink: Ofs(TypeOf(TIDSortedSymbolCollection)^);
Load: @TIDSortedSymbolCollection.Load;
Store: @TIDSortedSymbolCollection.Store
Store: @TIDSortedSymbolCollection.Store;
Next: nil
);
RObjectSymbolCollection: TStreamRec = (
ObjType: 3009;
VmtLink: Ofs(TypeOf(TObjectSymbolCollection)^);
Load: @TObjectSymbolCollection.Load;
Store: @TObjectSymbolCollection.Store
Store: @TObjectSymbolCollection.Store;
Next: nil
);
RReferenceCollection: TStreamRec = (
ObjType: 3010;
VmtLink: Ofs(TypeOf(TReferenceCollection)^);
Load: @TReferenceCollection.Load;
Store: @TReferenceCollection.Store
Store: @TReferenceCollection.Store;
Next: nil
);
RModuleSymbol: TStreamRec = (
ObjType: 3011;
VmtLink: Ofs(TypeOf(TModuleSymbol)^);
Load: @TModuleSymbol.Load;
Store: @TModuleSymbol.Store
Store: @TModuleSymbol.Store;
Next: nil
);
SymbolCount : longint = 0;
Current_moduleIndex : longint = 0;
{****************************************************************************
Helpers
@ -609,8 +619,8 @@ begin
if S1<S2 then R:=-1 else
if S1>S2 then R:=1 else
{ make sure that we distinguish between different objects with the same name }
if Ptrint(K1^.Symbol)<Ptrint(K2^.Symbol) then R:=-1 else
if Ptrint(K1^.Symbol)>Ptrint(K2^.Symbol) then R:= 1 else
if PtrUInt(K1^.Symbol)<PtrUInt(K2^.Symbol) then R:=-1 else
if PtrUInt(K1^.Symbol)>PtrUInt(K2^.Symbol) then R:= 1 else
R:=0;
Compare:=R;
end;
@ -1231,7 +1241,7 @@ end;
procedure ProcessSymTable(OwnerSym: PSymbol; var Owner: PSymbolCollection; Table: TSymTable);
var I,J: longint;
var I: longint;
Sym: TSym;
pd : TProcDef;
Symbol: PSymbol;
@ -1757,7 +1767,6 @@ begin
if (cs_browser in current_settings.moduleswitches) then
while assigned(hp) do
begin
current_moduleindex:=hp.unit_index;
if hp.is_unit then
t:=tsymtable(hp.globalsymtable)
else
@ -2108,8 +2117,8 @@ var K1: PPointerXRef absolute Key1;
K2: PPointerXRef absolute Key2;
R: integer;
begin
if Ptrint(K1^.PtrValue)<Ptrint(K2^.PtrValue) then R:=-1 else
if Ptrint(K1^.PtrValue)>Ptrint(K2^.PtrValue) then R:= 1 else
if PtrUInt(K1^.PtrValue)<PtrUInt(K2^.PtrValue) then R:=-1 else
if PtrUInt(K1^.PtrValue)>PtrUInt(K2^.PtrValue) then R:= 1 else
R:=0;
Compare:=R;
end;