mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 18:49:16 +02:00
* moved swapoperands out of the define
This commit is contained in:
parent
ffd7909953
commit
afc81918c6
@ -593,6 +593,28 @@ uses
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure tai386.SwapOperands;
|
||||||
|
var
|
||||||
|
p : TOper;
|
||||||
|
begin
|
||||||
|
{ Fix the operands which are in AT&T style and we need them in Intel style }
|
||||||
|
case ops of
|
||||||
|
2 : begin
|
||||||
|
{ 0,1 -> 1,0 }
|
||||||
|
p:=oper[0];
|
||||||
|
oper[0]:=oper[1];
|
||||||
|
oper[1]:=p;
|
||||||
|
end;
|
||||||
|
3 : begin
|
||||||
|
{ 0,1,2 -> 2,1,0 }
|
||||||
|
p:=oper[0];
|
||||||
|
oper[0]:=oper[2];
|
||||||
|
oper[2]:=p;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
{*****************************************************************************
|
{*****************************************************************************
|
||||||
Assembler
|
Assembler
|
||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
@ -676,28 +698,6 @@ begin
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
procedure tai386.SwapOperands;
|
|
||||||
var
|
|
||||||
p : TOper;
|
|
||||||
begin
|
|
||||||
{ Fix the operands which are in AT&T style and we need them in Intel style }
|
|
||||||
case ops of
|
|
||||||
2 : begin
|
|
||||||
{ 0,1 -> 1,0 }
|
|
||||||
p:=oper[0];
|
|
||||||
oper[0]:=oper[1];
|
|
||||||
oper[1]:=p;
|
|
||||||
end;
|
|
||||||
3 : begin
|
|
||||||
{ 0,1,2 -> 2,1,0 }
|
|
||||||
p:=oper[0];
|
|
||||||
oper[0]:=oper[2];
|
|
||||||
oper[2]:=p;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
function tai386.Matches(p:PInsEntry):longint;
|
function tai386.Matches(p:PInsEntry):longint;
|
||||||
{ * IF_SM stands for Size Match: any operand whose size is not
|
{ * IF_SM stands for Size Match: any operand whose size is not
|
||||||
* explicitly specified by the template is `really' intended to be
|
* explicitly specified by the template is `really' intended to be
|
||||||
@ -1520,7 +1520,10 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.10 1999-05-27 19:44:33 peter
|
Revision 1.11 1999-05-30 11:57:43 peter
|
||||||
|
* moved swapoperands out of the define
|
||||||
|
|
||||||
|
Revision 1.10 1999/05/27 19:44:33 peter
|
||||||
* removed oldasm
|
* removed oldasm
|
||||||
* plabel -> pasmlabel
|
* plabel -> pasmlabel
|
||||||
* -a switches to source writing automaticly
|
* -a switches to source writing automaticly
|
||||||
|
Loading…
Reference in New Issue
Block a user