cas instruction was encoded wrong

diff --git a/mach/m68020/as/mach4.c b/mach/m68020/as/mach4.c
index 400f5e7..112b21f 100644 (file)
--- a/mach/m68020/as/mach4.c
+++ b/mach/m68020/as/mach4.c
@@ -195,7 +195,7 @@ instruction
                        {       T_EMIT2(03300 | $2, 0, 0, 0);}
        |       CAS sizedef DREG ',' DREG ',' ea
                        {       T_EMIT2(04300 | (($2+0100)<<3) | mrg_2,0,0,0);
-                               T_EMIT2($5 | ($3<<6),0,0,0);
+                               T_EMIT2($3 | ($5<<6),0,0,0);
                                ea_2($2, MEM|ALT);
                        }
        |       CAS2 sizedef DREG ':' DREG ',' DREG ':' DREG ','

diff --git a/mach/m68020/as/mach5.c b/mach/m68020/as/mach5.c
index 0b4723b..a674624 100644 (file)
--- a/mach/m68020/as/mach5.c
+++ b/mach/m68020/as/mach5.c
@@ -25,7 +25,7 @@ emit_instr()
 {
        register instr_t *ip;
 
-       for (ip=instr; ip<instrp; emit2(ip++->i_word)) {
+       for (ip=instr; ip<instrp; emit2((ip++)->i_word)) {
 #ifdef RELOCATION
                RELOMOVE(relonami, ip->i_relonami);
                if (ip->i_reloinfo)