paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 19:40:15 +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; ObjType: 3001;
VmtLink: Ofs(TypeOf(TModuleNameCollection)^); VmtLink: Ofs(TypeOf(TModuleNameCollection)^);
Load: @TModuleNameCollection.Load; Load: @TModuleNameCollection.Load;
Store: @TModuleNameCollection.Store Store: @TModuleNameCollection.Store;
Next: nil
); );
RTypeNameCollection: TStreamRec = ( RTypeNameCollection: TStreamRec = (
ObjType: 3002; ObjType: 3002;
VmtLink: Ofs(TypeOf(TTypeNameCollection)^); VmtLink: Ofs(TypeOf(TTypeNameCollection)^);
Load: @TTypeNameCollection.Load; Load: @TTypeNameCollection.Load;
Store: @TTypeNameCollection.Store Store: @TTypeNameCollection.Store;
Next: nil
); );
RReference: TStreamRec = ( RReference: TStreamRec = (
ObjType: 3003; ObjType: 3003;
VmtLink: Ofs(TypeOf(TReference)^); VmtLink: Ofs(TypeOf(TReference)^);
Load: @TReference.Load; Load: @TReference.Load;
Store: @TReference.Store Store: @TReference.Store;
Next: nil
); );
RSymbol: TStreamRec = ( RSymbol: TStreamRec = (
ObjType: 3004; ObjType: 3004;
VmtLink: Ofs(TypeOf(TSymbol)^); VmtLink: Ofs(TypeOf(TSymbol)^);
Load: @TSymbol.Load; Load: @TSymbol.Load;
Store: @TSymbol.Store Store: @TSymbol.Store;
Next: nil
); );
RObjectSymbol: TStreamRec = ( RObjectSymbol: TStreamRec = (
ObjType: 3005; ObjType: 3005;
VmtLink: Ofs(TypeOf(TObjectSymbol)^); VmtLink: Ofs(TypeOf(TObjectSymbol)^);
Load: @TObjectSymbol.Load; Load: @TObjectSymbol.Load;
Store: @TObjectSymbol.Store Store: @TObjectSymbol.Store;
Next: nil
); );
RSymbolCollection: TStreamRec = ( RSymbolCollection: TStreamRec = (
ObjType: 3006; ObjType: 3006;
VmtLink: Ofs(TypeOf(TSymbolCollection)^); VmtLink: Ofs(TypeOf(TSymbolCollection)^);
Load: @TSymbolCollection.Load; Load: @TSymbolCollection.Load;
Store: @TSymbolCollection.Store Store: @TSymbolCollection.Store;
Next: nil
); );
RSortedSymbolCollection: TStreamRec = ( RSortedSymbolCollection: TStreamRec = (
ObjType: 3007; ObjType: 3007;
VmtLink: Ofs(TypeOf(TSortedSymbolCollection)^); VmtLink: Ofs(TypeOf(TSortedSymbolCollection)^);
Load: @TSortedSymbolCollection.Load; Load: @TSortedSymbolCollection.Load;
Store: @TSortedSymbolCollection.Store Store: @TSortedSymbolCollection.Store;
Next: nil
); );
RIDSortedSymbolCollection: TStreamRec = ( RIDSortedSymbolCollection: TStreamRec = (
ObjType: 3008; ObjType: 3008;
VmtLink: Ofs(TypeOf(TIDSortedSymbolCollection)^); VmtLink: Ofs(TypeOf(TIDSortedSymbolCollection)^);
Load: @TIDSortedSymbolCollection.Load; Load: @TIDSortedSymbolCollection.Load;
Store: @TIDSortedSymbolCollection.Store Store: @TIDSortedSymbolCollection.Store;
Next: nil
); );
RObjectSymbolCollection: TStreamRec = ( RObjectSymbolCollection: TStreamRec = (
ObjType: 3009; ObjType: 3009;
VmtLink: Ofs(TypeOf(TObjectSymbolCollection)^); VmtLink: Ofs(TypeOf(TObjectSymbolCollection)^);
Load: @TObjectSymbolCollection.Load; Load: @TObjectSymbolCollection.Load;
Store: @TObjectSymbolCollection.Store Store: @TObjectSymbolCollection.Store;
Next: nil
); );
RReferenceCollection: TStreamRec = ( RReferenceCollection: TStreamRec = (
ObjType: 3010; ObjType: 3010;
VmtLink: Ofs(TypeOf(TReferenceCollection)^); VmtLink: Ofs(TypeOf(TReferenceCollection)^);
Load: @TReferenceCollection.Load; Load: @TReferenceCollection.Load;
Store: @TReferenceCollection.Store Store: @TReferenceCollection.Store;
Next: nil
); );
RModuleSymbol: TStreamRec = ( RModuleSymbol: TStreamRec = (
ObjType: 3011; ObjType: 3011;
VmtLink: Ofs(TypeOf(TModuleSymbol)^); VmtLink: Ofs(TypeOf(TModuleSymbol)^);
Load: @TModuleSymbol.Load; Load: @TModuleSymbol.Load;
Store: @TModuleSymbol.Store Store: @TModuleSymbol.Store;
Next: nil
); );
SymbolCount : longint = 0; SymbolCount : longint = 0;
Current_moduleIndex : longint = 0;
{**************************************************************************** {****************************************************************************
Helpers Helpers
@ -609,8 +619,8 @@ begin
if S1<S2 then R:=-1 else if S1<S2 then R:=-1 else
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 } { make sure that we distinguish between different objects with the same name }
if Ptrint(K1^.Symbol)<Ptrint(K2^.Symbol) then R:=-1 else if PtrUInt(K1^.Symbol)<PtrUInt(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
R:=0; R:=0;
Compare:=R; Compare:=R;
end; end;
@ -1231,7 +1241,7 @@ end;
procedure ProcessSymTable(OwnerSym: PSymbol; var Owner: PSymbolCollection; Table: TSymTable); procedure ProcessSymTable(OwnerSym: PSymbol; var Owner: PSymbolCollection; Table: TSymTable);
var I,J: longint; var I: longint;
Sym: TSym; Sym: TSym;
pd : TProcDef; pd : TProcDef;
Symbol: PSymbol; Symbol: PSymbol;
@ -1757,7 +1767,6 @@ begin
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;
if hp.is_unit then if hp.is_unit then
t:=tsymtable(hp.globalsymtable) t:=tsymtable(hp.globalsymtable)
else else
@ -2108,8 +2117,8 @@ var K1: PPointerXRef absolute Key1;
K2: PPointerXRef absolute Key2; K2: PPointerXRef absolute Key2;
R: integer; R: integer;
begin begin
if Ptrint(K1^.PtrValue)<Ptrint(K2^.PtrValue) then R:=-1 else if PtrUInt(K1^.PtrValue)<PtrUInt(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
R:=0; R:=0;
Compare:=R; Compare:=R;
end; end;