Selaa lähdekoodia

* moved swapoperands out of the define

peter 26 vuotta sitten
vanhempi
commit
afc81918c6
1 muutettua tiedostoa jossa 26 lisäystä ja 23 poistoa
  1. 26 23
      compiler/i386asm.pas

+ 26 - 23
compiler/i386asm.pas

@@ -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