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

* Removed unused vars.

Browse Source 
git-svn-id: trunk@33308 -
This commit is contained in:
yury 2016-03-21 09:21:24 +00:00
parent cac16fa60e
commit 3c6d4f1ee2
3 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/arm/narminl.pas
View File

@ -448,7 +448,6 @@ implementation
i : integer;
negop3,
negproduct : boolean;
hp : tnode;
oppostfix : TOpPostfix;
begin
if current_settings.fputype in [fpu_vfpv4] then

1
compiler/entfile.pas
View File

@ -409,7 +409,6 @@ end;
function tentryfile.openfile:boolean;
var
i : integer;
strm : TCStream;
begin
openfile:=false;

3
compiler/x86/cgx86.pas
View File

@ -1041,7 +1041,6 @@ unit cgx86;
procedure tcgx86.a_loadaddr_ref_reg(list : TAsmList;const ref : treference;r : tregister);
var
dirref,tmpref : treference;
hreg : tregister;
begin
dirref:=ref;
@ -2342,7 +2341,7 @@ unit cgx86;
type copymode=(copy_move,copy_mmx,copy_string,copy_mm,copy_avx);
var srcref,dstref,tmpref:Treference;
var srcref,dstref:Treference;
r,r0,r1,r2,r3:Tregister;
helpsize:tcgint;
copysize:byte;