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

* moved swapoperands out of the define

Browse Source
This commit is contained in:
peter 1999-05-30 11:57:43 +00:00
parent ffd7909953
commit afc81918c6
1 changed files with 26 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
compiler/i386asm.pas
View File

@ -593,6 +593,28 @@ uses
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
*****************************************************************************}
@ -676,28 +698,6 @@ begin
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;
{ * IF_SM stands for Size Match: any operand whose size is not
* explicitly specified by the template is `really' intended to be
@ -1520,7 +1520,10 @@ end;
end.
{
$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
* plabel -> pasmlabel
* -a switches to source writing automaticly