paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:19:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Removed unused local vars.

Browse Source 
git-svn-id: trunk@41457 -
This commit is contained in:
yury 2019-02-25 11:22:49 +00:00
parent c987aa77f9
commit a277a5f8db
4 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/arm/narmld.pas
View File

@ -55,8 +55,6 @@ implementation
procedure tarmloadnode.generate_threadvar_access(gvs: tstaticvarsym); procedure tarmloadnode.generate_threadvar_access(gvs: tstaticvarsym);
var var
paraloc1 : tcgpara;
pd: tprocdef;
href: treference; href: treference;
hregister : tregister; hregister : tregister;
handled: boolean; handled: boolean;

1
compiler/i386/aoptcpu.pas
View File

@ -131,7 +131,6 @@ function WriteOk : Boolean;
end; end;
var var
l : longint;
p,hp1,hp2 : tai; p,hp1,hp2 : tai;
hp3,hp4: tai; hp3,hp4: tai;
v:aint; v:aint;

3
compiler/pdecvar.pas
View File

@ -1591,14 +1591,13 @@ implementation
sc : TFPObjectList; sc : TFPObjectList;
i : longint; i : longint;
hs,sorg : string; hs,sorg : string;
hdef,casetype,tmpdef : tdef; hdef,casetype : tdef;
{ maxsize contains the max. size of a variant } { maxsize contains the max. size of a variant }
{ startvarrec contains the start of the variant part of a record } { startvarrec contains the start of the variant part of a record }
maxsize, startvarrecsize : longint; maxsize, startvarrecsize : longint;
usedalign, usedalign,
maxalignment,startvarrecalign, maxalignment,startvarrecalign,
maxpadalign, startpadalign: shortint; maxpadalign, startpadalign: shortint;
stowner : tdef;
pt : tnode; pt : tnode;
fieldvs : tfieldvarsym; fieldvs : tfieldvarsym;
hstaticvs : tstaticvarsym; hstaticvs : tstaticvarsym;

5
compiler/rgobj.pas
View File

@ -1474,8 +1474,9 @@ unit rgobj;
adj : psuperregisterworklist; adj : psuperregisterworklist;
maxlength,p,i :word; maxlength,p,i :word;
minweight: longint; minweight: longint;
dist, {$ifdef SPILLING_NEW}
maxdist: Double; dist: Double;
{$endif}
begin begin
{$ifdef SPILLING_NEW} {$ifdef SPILLING_NEW}
{ This new approach for selecting the next spill candidate takes care of the weight of a register: { This new approach for selecting the next spill candidate takes care of the weight of a register: