code review 4126044: enable arm peep.

src/cmd/5g/peep.c

 // Inferno utils/5c/peep.c
 // http://code.google.com/p/inferno-os/source/browse/utils/5g/peep.c
 //
 //      Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
 //      Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
 //      Portions Copyright © 1997-1999 Vita Nuova Limited
 //      Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
 //      Portions Copyright © 2004,2006 Bruce Ellis
 //      Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
 //      Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
@@ skipping 315 matching lines @@
         if(!regtyp(v2))
                 return 0;
         for(r=uniqp(r0); r!=R; r=uniqp(r)) {
                 if(uniqs(r) == R)
                         break;
                 p = r->prog;
                 switch(p->as) {
                 case ABL:
                         return 0;
 
+                case AMULLU:
+                case AMULA:
+
                 case ACMN:
                 case AADD:
                 case ASUB:
                 case ASBC:
                 case ARSB:
                 case ASLL:
                 case ASRL:
                 case ASRA:
                 case AORR:
                 case AAND:
                 case AEOR:
+                case AMVN:
                 case AMUL:
+                case AMULU:
                 case ADIV:
                 case ADIVU:
+                case AMOD:
+                case AMODU:
 
                 case AADDD:
                 case AADDF:
                 case ASUBD:
                 case ASUBF:
                 case AMULD:
                 case AMULF:
                 case ADIVD:
                 case ADIVF:
                         if(p->to.type == v1->type)
@@ skipping 638 matching lines @@
                         if(copyau(&p->from, v))
                                 return 4;
                         return 3;
                 }
                 if(copyau(&p->from, v))
                         return 1;
                 if(copyau(&p->to, v))
                         return 1;
                 return 0;
 
+        case AMULLU:    /* read, read, write, write */
+        case AMULA:
+                return 2;
+
         case AADD:      /* read, read, write */
+        case AADC:
         case ASUB:
         case ASBC:
         case ARSB:
         case ASLL:
         case ASRL:
         case ASRA:
         case AORR:
         case AAND:
         case AEOR:
+        case AMVN:
         case AMUL:
+        case AMULU:
         case ADIV:
         case ADIVU:
+        case AMOD:
+        case AMODU:
         case AADDF:
         case AADDD:
         case ASUBF:
         case ASUBD:
         case AMULF:
         case AMULD:
         case ADIVF:
         case ADIVD:
 
         case ACMPF:
@@ skipping 106 matching lines @@
 int
 a2type(Prog *p)
 {
 
         switch(p->as) {
 
         case ATST:
         case ACMP:
         case ACMN:
 
+        case AMULLU:
+        case AMULA:
+
         case AADD:
         case ASUB:
         case ARSB:
         case ASLL:
         case ASRL:
         case ASRA:
         case AORR:
         case AAND:
         case AEOR:
+        case AMVN:
         case AMUL:
+        case AMULU:
         case ADIV:
         case ADIVU:
+        case AMOD:
+        case AMODU:
                 return D_REG;
 
         case ACMPF:
         case ACMPD:
 
         case AADDF:
         case AADDD:
         case ASUBF:
         case ASUBD:
         case AMULF:
@@ skipping 196 matching lines @@
  * Depends on an analysis of the encodings performed by 5l.
  * These seem to be all of the opcodes that lead to the "S" bit
  * being set in the instruction encodings.
  *
  * C_SBIT may also have been set explicitly in p->scond.
  */
 int
 modifiescpsr(Prog *p)
 {
         switch(p->as) {
+        case AMULLU:
+        case AMULA:
+        case AMULU:
+        case ADIVU:
+
         case ATEQ:
         case ACMN:
         case ATST:
         case ACMP:
-        case AMULU:
-        case ADIVU:
         case AMUL:
         case ADIV:
         case AMOD:
         case AMODU:
         case ABL:
                 return 1;
         }
         if(p->scond & C_SBIT)
                 return 1;
         return 0;
@@ skipping 114 matching lines @@
         }
 }
 
 int
 isdconst(Addr *a)
 {
         if(a->type == D_CONST && a->reg == NREG)
                 return 1;
         return 0;
 }