]> thyrsus.com Git - intercal.git/commitdiff
Show unary bitwidths in optimiser debug output
authorAlex Smith <ais523@bham.ac.uk>
Thu, 2 Sep 2010 22:33:15 +0000 (23:33 +0100)
committerAlex Smith <ais523@bham.ac.uk>
Thu, 2 Sep 2010 22:33:15 +0000 (23:33 +0100)
src/feh2.c

index c6412424912f6f9a64daa3549fb3ba8e2cb87266..d2d528804fef4230e1597a1a81d7761c175325e8 100644 (file)
@@ -658,19 +658,19 @@ void explexpr(node* np, FILE* fp)
     break;
 
   case AND:
-    (void) fprintf(fp, "(& ");
+    (void) fprintf(fp, "(&%d ", np->width);
     explexpr(np->rval, fp);
     (void) fprintf(fp, ")");
     break;
 
   case OR:
-    (void) fprintf(fp, "(V ");
+    (void) fprintf(fp, "(V%d ", np->width);
     explexpr(np->rval, fp);
     (void) fprintf(fp, ")");
     break;
 
   case XOR:
-    (void) fprintf(fp, "(? ");
+    (void) fprintf(fp, "(?%d ", np->width);
     explexpr(np->rval, fp);
     (void) fprintf(fp, ")");
     break;
@@ -678,7 +678,7 @@ void explexpr(node* np, FILE* fp)
   case FIN:
     if (ick_Base < 3)
       ick_lose(IE997, emitlineno, (const char *)NULL);
-    (void) fprintf(fp, "(^ ");
+    (void) fprintf(fp, "(^%d ", np->width);
     explexpr(np->rval, fp);
     (void) fprintf(fp, ")");
     break;
@@ -691,9 +691,9 @@ void explexpr(node* np, FILE* fp)
     if (np->opcode - WHIRL + 3 > ick_Base)
       ick_lose(IE997, emitlineno, (const char *)NULL);
     if(np->opcode == WHIRL)
-      (void) fprintf(fp, "(@ ");
+      (void) fprintf(fp, "(@%d ", np->width);
     else
-      (void) fprintf(fp, "(%d@ ", np->opcode - WHIRL + 1);
+      (void) fprintf(fp, "(%d@%d ", np->opcode - WHIRL + 1, np->width);
     explexpr(np->rval, fp);
     (void) fprintf(fp, ")");
     break;