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

- Removed a number of unused variables, reduces noise at compilation.

Browse Source 
git-svn-id: trunk@22880 -
This commit is contained in:
sergei 2012-10-30 11:55:59 +00:00
parent 47cd83ae14
commit 12ad6704f6
7 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cclasses.pas
View File

@ -1506,8 +1506,6 @@ begin
end; end;
function TFPHashList.InternalFind(AHash:LongWord;const AName:TSymStr;out PrevIndex:Integer):Integer; function TFPHashList.InternalFind(AHash:LongWord;const AName:TSymStr;out PrevIndex:Integer):Integer;
var
HashIndex : Integer;
begin begin
prefetch(AName[1]); prefetch(AName[1]);
Result:=FHashTable^[AHash and FCapacityMask]; Result:=FHashTable^[AHash and FCapacityMask];

2
compiler/constexp.pas
View File

@ -42,8 +42,6 @@ type Tconstexprint=record
(svalue:int64); (svalue:int64);
end; end;
Tconststring = type pchar;
errorproc=procedure (i:longint); errorproc=procedure (i:longint);
{"Uses verbose" gives a dependency on cpuinfo through globals. This leads {"Uses verbose" gives a dependency on cpuinfo through globals. This leads

1
compiler/i386/hlcgcpu.pas
View File

@ -58,7 +58,6 @@ implementation
procedure thlcgcpu.gen_loadfpu_loc_cgpara(list: TAsmList; size: tdef; const l: tlocation; const cgpara: tcgpara; locintsize: longint); procedure thlcgcpu.gen_loadfpu_loc_cgpara(list: TAsmList; size: tdef; const l: tlocation; const cgpara: tcgpara; locintsize: longint);
var var
locsize : tcgsize; locsize : tcgsize;
locdef : tdef;
tmploc : tlocation; tmploc : tlocation;
href : treference; href : treference;
stacksize : longint; stacksize : longint;

1
compiler/ncgmem.pas
View File

@ -282,7 +282,6 @@ implementation
var var
sym: tasmsymbol; sym: tasmsymbol;
paraloc1 : tcgpara; paraloc1 : tcgpara;
hreg : tregister;
tmpref: treference; tmpref: treference;
sref: tsubsetreference; sref: tsubsetreference;
begin begin

3
compiler/ninl.pas
View File

@ -1584,9 +1584,6 @@ implementation
function tinlinenode.handle_copy: tnode; function tinlinenode.handle_copy: tnode;
var var
lowppn,
highppn,
npara,
paras : tnode; paras : tnode;
ppn : tcallparanode; ppn : tcallparanode;
paradef : tdef; paradef : tdef;

1
compiler/nmat.pas
View File

@ -439,7 +439,6 @@ implementation
function tmoddivnode.firstoptimize: tnode; function tmoddivnode.firstoptimize: tnode;
var var
power,shiftval : longint; power,shiftval : longint;
newtype: tnodetype;
statements : tstatementnode; statements : tstatementnode;
temp : ttempcreatenode; temp : ttempcreatenode;
begin begin

3
compiler/symdef.pas
View File

@ -3905,7 +3905,6 @@ implementation
var var
j, nestinglevel: longint; j, nestinglevel: longint;
pvs, npvs: tparavarsym; pvs, npvs: tparavarsym;
csym, ncsym: tconstsym;
begin begin
nestinglevel:=parast.symtablelevel; nestinglevel:=parast.symtablelevel;
if newtyp=procdef then if newtyp=procdef then
@ -4447,9 +4446,7 @@ implementation
function tprocdef.getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef; function tprocdef.getcopyas(newtyp: tdeftyp; copytyp: tproccopytyp): tstoreddef;
var var
i : tcallercallee;
j : longint; j : longint;
pvs : tparavarsym;
begin begin
result:=inherited getcopyas(newtyp,copytyp); result:=inherited getcopyas(newtyp,copytyp);
if newtyp=procvardef then if newtyp=procvardef then