From afc81918c6bf1efe76d300ee4eb7c9a6921aec22 Mon Sep 17 00:00:00 2001 From: peter Date: Sun, 30 May 1999 11:57:43 +0000 Subject: [PATCH] * moved swapoperands out of the define --- compiler/i386asm.pas | 49 +++++++++++++++++++++++--------------------- 1 file changed, 26 insertions(+), 23 deletions(-) diff --git a/compiler/i386asm.pas b/compiler/i386asm.pas index 6cec6ac7e8..6c2bf96200 100644 --- a/compiler/i386asm.pas +++ b/compiler/i386asm.pas @@ -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