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

* removed/conditionalised several unused variables

Browse Source 
git-svn-id: trunk@4194 -
This commit is contained in:
Jonas Maebe 2006-07-14 19:44:54 +00:00
parent b5fe67351e
commit d75b19e484
10 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/assemble.pas
View File

@ -1059,9 +1059,7 @@ Implementation
{$ifdef x86} {$ifdef x86}
co : comp; co : comp;
{$endif x86} {$endif x86}
hs : string;
objsym, objsym,
objsymparent,
objsymend : TObjSymbol; objsymend : TObjSymbol;
leblen : byte; leblen : byte;
lebbuf : array[0..63] of byte; lebbuf : array[0..63] of byte;

2
compiler/ncgcal.pas
View File

@ -813,7 +813,9 @@ implementation
pvreg, pvreg,
vmtreg : tregister; vmtreg : tregister;
oldaktcallnode : tcallnode; oldaktcallnode : tcallnode;
{$ifdef vtentry}
sym : tasmsymbol; sym : tasmsymbol;
{$endif vtentry}
begin begin
if not assigned(procdefinition) or if not assigned(procdefinition) or
not procdefinition.has_paraloc_info then not procdefinition.has_paraloc_info then

2
compiler/ncginl.pas
View File

@ -677,8 +677,6 @@ implementation
procedure Tcginlinenode.second_get_frame; procedure Tcginlinenode.second_get_frame;
var frame_ref:Treference;
begin begin
if current_procinfo.framepointer=NR_STACK_POINTER_REG then if current_procinfo.framepointer=NR_STACK_POINTER_REG then
begin begin

2
compiler/nflw.pas
View File

@ -1117,7 +1117,7 @@ implementation
function tgotonode._getcopy : tnode; function tgotonode._getcopy : tnode;
var var
p : tgotonode; p : tgotonode;
i : aint; { i : longint; }
begin begin
p:=tgotonode(inherited _getcopy); p:=tgotonode(inherited _getcopy);
{ {

1
compiler/nmat.pas
View File

@ -663,7 +663,6 @@ implementation
function tunaryminusnode.pass_1 : tnode; function tunaryminusnode.pass_1 : tnode;
var var
procname: string[31]; procname: string[31];
temp: tnode;
begin begin
result:=nil; result:=nil;
firstpass(left); firstpass(left);

11
compiler/nobj.pas
View File

@ -1209,8 +1209,11 @@ implementation
vmtentry : pvmtentry; vmtentry : pvmtentry;
procdefcoll : pprocdefcoll; procdefcoll : pprocdefcoll;
i : longint; i : longint;
procname, procname
hs : string; {$ifdef vtentry}
, hs
{$endif vtentry}
: string;
begin begin
{ walk trough all numbers for virtual methods and search } { walk trough all numbers for virtual methods and search }
{ the method } { the method }
@ -1258,7 +1261,9 @@ implementation
dmtlabel : tasmlabel; dmtlabel : tasmlabel;
{$endif WITHDMT} {$endif WITHDMT}
interfacetable : tasmlabel; interfacetable : tasmlabel;
hs : string; {$ifdef vtentry}
hs: string;
{$endif vtentry}
begin begin
{$ifdef WITHDMT} {$ifdef WITHDMT}
dmtlabel:=gendmt; dmtlabel:=gendmt;

1
compiler/optunrol.pas
View File

@ -78,7 +78,6 @@ unit optunrol;
counts : qword; counts : qword;
unrollstatement : tstatementnode; unrollstatement : tstatementnode;
unrollblock : tblocknode; unrollblock : tblocknode;
entrylabel : tlabelnode;
begin begin
result:=nil; result:=nil;
if (cs_opt_size in aktoptimizerswitches) then if (cs_opt_size in aktoptimizerswitches) then

2
compiler/pmodules.pas
View File

@ -823,7 +823,9 @@ implementation
pd : tprocdef; pd : tprocdef;
unitname8 : string[8]; unitname8 : string[8];
has_impl,ag: boolean; has_impl,ag: boolean;
{$ifdef i386}
globalvarsym : tglobalvarsym; globalvarsym : tglobalvarsym;
{$endif i386}
begin begin
if m_mac in aktmodeswitches then if m_mac in aktmodeswitches then
current_module.mode_switch_allowed:= false; current_module.mode_switch_allowed:= false;

1
compiler/ptype.pas
View File

@ -336,7 +336,6 @@ implementation
var var
pt1,pt2 : tnode; pt1,pt2 : tnode;
lv,hv : TConstExprInt; lv,hv : TConstExprInt;
ispecialization : boolean;
old_block_type : tblock_type; old_block_type : tblock_type;
begin begin
old_block_type:=block_type; old_block_type:=block_type;

2
compiler/symdef.pas
View File

@ -2679,8 +2679,6 @@ implementation
procedure tabstractrecorddef.derefimpl; procedure tabstractrecorddef.derefimpl;
var
storesymtable : tsymtable;
begin begin
inherited derefimpl; inherited derefimpl;
tstoredsymtable(symtable).derefimpl; tstoredsymtable(symtable).derefimpl;