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

* Removed unused vars.

Browse Source 
git-svn-id: trunk@35535 -
This commit is contained in:
yury 2017-03-07 08:56:07 +00:00
parent 29986a1616
commit 5405a4727a
4 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/htypechk.pas
View File

@ -2517,7 +2517,6 @@ implementation
var
pd:tprocdef;
candidate:pcandidate;
objdef: tobjectdef;
st: tsymtable;
begin
{ Give a small penalty for overloaded methods not defined in the

1
compiler/ncgflw.pas
View File

@ -1114,7 +1114,6 @@ implementation
oldContinueLabel,
oldBreakLabel : tasmlabel;
finallyexceptionstate: tcgexceptionstatehandler.texceptionstate;
prefinallyflowcontrol : tflowcontrol;
excepttemps : tcgexceptionstatehandler.texceptiontemps;
reasonreg : tregister;
begin

2
compiler/nflw.pas
View File

@ -1526,7 +1526,7 @@ implementation
function tfornode.pass_1 : tnode;
var
ifblock,whileblock,loopblock : tblocknode;
ifblock,loopblock : tblocknode;
ifstatements,statements,loopstatements : tstatementnode;
fromtemp,totemp : ttempcreatenode;
do_loopvar_at_end : Boolean;

1
compiler/ngtcon.pas
View File

@ -1675,7 +1675,6 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
procedure tasmlisttypedconstbuilder.parse_objectdef(def:tobjectdef);
var
n : tnode;
i : longint;
obj : tobjectdef;
srsym : tsym;
st : tsymtable;