* Removed unused vars for x86 compiler.

git-svn-id: trunk@31743 -
This commit is contained in:
yury 2015-09-17 15:20:15 +00:00
parent aa150093d2
commit e04a3b4ac6
5 changed files with 7 additions and 19 deletions

View File

@ -623,9 +623,6 @@ implementation
i,pos,l : longint;
InlineLevel : cardinal;
last_align : longint;
{$ifdef cpuextended}
e : extended;
{$endif cpuextended}
do_line : boolean;
sepChar : char;

View File

@ -604,8 +604,10 @@ interface
end;
procedure TX86NasmAssembler.WriteGroups;
{$ifdef i8086}
var
i: Integer;
{$endif i8086}
begin
{$ifdef i8086}
if target_info.system in [system_i8086_msdos,system_i8086_win16] then
@ -636,12 +638,6 @@ interface
consttype : taiconst_type;
do_line, SkipNewLine,
quoted : boolean;
co : comp;
sin : single;
d : double;
{$ifdef cpuextended}
e : extended;
{$endif cpuextended}
fixed_opcode: TAsmOp;
prefix, LastSecName : string;
LastAlign : Byte;
@ -1332,7 +1328,7 @@ interface
comment : '; ';
dollarsign: '$';
);
{
as_i386_nasmdarwin_info : tasminfo =
(
id : as_i386_nasmdarwin;
@ -1345,7 +1341,7 @@ interface
comment : '; ';
dollarsign: '$';
);
}
as_i386_nasmbeos_info : tasminfo =
(
id : as_i386_nasmbeos;

View File

@ -1703,12 +1703,8 @@ unit cgx86;
procedure tcgx86.a_op_const_reg(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; reg: TRegister);
var
opcode : tasmop;
power : longint;
href : treference;
{$ifdef x86_64}
var
tmpreg : tregister;
{$endif x86_64}
begin
@ -1812,8 +1808,6 @@ unit cgx86;
procedure tcgx86.a_op_const_ref(list : TAsmList; Op: TOpCG; size: TCGSize; a: tcgint; const ref: TReference);
var
opcode: tasmop;
power: longint;
{$ifdef x86_64}
tmpreg : tregister;
{$endif x86_64}

View File

@ -932,7 +932,9 @@ unit nx86add;
var
op : topcg;
sqr_sum : boolean;
{$ifdef dummy}
tmp : tnode;
{$endif dummy}
begin
sqr_sum:=false;
{$ifdef dummy}

View File

@ -806,7 +806,6 @@ implementation
negop3,
negproduct,
gotmem : boolean;
hp : tnode;
begin
{$ifndef i8086}
if (cpu_capabilities[current_settings.cputype]*[CPUX86_HAS_FMA,CPUX86_HAS_FMA4])<>[] then