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

* Removed unused vars for x86-64 compiler.

Browse Source 
git-svn-id: trunk@31744 -
This commit is contained in:
yury 2015-09-17 15:26:31 +00:00
parent e04a3b4ac6
commit 47b316d0e2
3 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgld.pas
View File

@ -589,7 +589,9 @@ implementation
alignmentrequirement,
len : aint;
r : tregister;
{$if not defined(cpu64bitalu) and not defined(x86)}
r64 : tregister64;
{$endif}
oldflowcontrol : tflowcontrol;
begin
{ previously, managed types were handled in firstpass

2
compiler/x86/nx86mat.pas
View File

@ -230,7 +230,9 @@ interface
procedure tx86notnode.second_boolean;
var
opsize : tcgsize;
{$if defined(cpu32bitalu)}
hreg: tregister;
{$endif}
begin
opsize:=def_cgsize(resultdef);

1
compiler/x86_64/aoptcpu.pas
View File

@ -153,7 +153,6 @@ function MatchReference(const ref : treference;base,index : TRegister) : Boolean
function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
var
next1: tai;
hp1, hp2: tai;
GetNextIntruction_p : boolean;
TmpUsedRegs : TAllUsedRegs;