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

compiler: cleanup - remove unused variables

Browse Source 
git-svn-id: trunk@14493 -
This commit is contained in:
paul 2009-12-29 06:14:52 +00:00
parent 6b1f84087d
commit b084d70ae4
6 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/htypechk.pas
View File

@ -2004,7 +2004,6 @@ implementation
def_to : tdef; def_to : tdef;
currpt, currpt,
pt : tcallparanode; pt : tcallparanode;
tmpeq,
eq : tequaltype; eq : tequaltype;
convtype : tconverttype; convtype : tconverttype;
pdtemp, pdtemp,

3
compiler/ncgcon.pas
View File

@ -262,10 +262,9 @@ implementation
procedure tcgstringconstnode.pass_generate_code; procedure tcgstringconstnode.pass_generate_code;
var var
l1,
lastlabel : tasmlabel; lastlabel : tasmlabel;
pc : pchar; pc : pchar;
l,i : longint; l: longint;
href: treference; href: treference;
pooltype: TConstPoolType; pooltype: TConstPoolType;
pool: THashSet; pool: THashSet;

3
compiler/ncgobjc.pas
View File

@ -54,12 +54,9 @@ uses
procedure tcgobjcselectornode.pass_generate_code; procedure tcgobjcselectornode.pass_generate_code;
var var
reflab,
strlab : tasmlabel;
pool : THashSet; pool : THashSet;
entry : PHashSetItem; entry : PHashSetItem;
name : pshortstring; name : pshortstring;
pc : pchar;
begin begin
if current_asmdata.ConstPools[sp_varnamerefs]=nil then if current_asmdata.ConstPools[sp_varnamerefs]=nil then
current_asmdata.ConstPools[sp_varnamerefs]:=THashSet.Create(64, True, False); current_asmdata.ConstPools[sp_varnamerefs]:=THashSet.Create(64, True, False);

4
compiler/nutils.pas
View File

@ -631,8 +631,10 @@ implementation
{ accesses } { accesses }
function node_complexity(p: tnode): cardinal; function node_complexity(p: tnode): cardinal;
var var
correction, correction: byte;
{$ifdef ARM}
dummy : byte; dummy : byte;
{$endif ARM}
begin begin
result := 0; result := 0;
while assigned(p) do while assigned(p) do

1
compiler/optbase.pas
View File

@ -82,7 +82,6 @@ unit optbase;
procedure DFASetInclude(var s : tdfaset;e : integer); procedure DFASetInclude(var s : tdfaset;e : integer);
var var
i,
e8 : Integer; e8 : Integer;
begin begin
e8:=e div 8; e8:=e div 8;

1
compiler/wpoinfo.pas
View File

@ -208,7 +208,6 @@ implementation
procedure tunitwpoinfo.deref; procedure tunitwpoinfo.deref;
var var
i: longint; i: longint;
len: longint;
begin begin
if (init_settings.genwpoptimizerswitches=[]) then if (init_settings.genwpoptimizerswitches=[]) then