mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 23:19:25 +02:00
* Removed unused vars for x86 compiler.
git-svn-id: trunk@31743 -
This commit is contained in:
parent
aa150093d2
commit
e04a3b4ac6
@ -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;
|
||||
|
@ -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;
|
||||
|
@ -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}
|
||||
|
@ -932,7 +932,9 @@ unit nx86add;
|
||||
var
|
||||
op : topcg;
|
||||
sqr_sum : boolean;
|
||||
{$ifdef dummy}
|
||||
tmp : tnode;
|
||||
{$endif dummy}
|
||||
begin
|
||||
sqr_sum:=false;
|
||||
{$ifdef dummy}
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user