From: Alex Smith <ais523@bham.ac.uk>
Date: Thu, 2 Sep 2010 22:57:43 +0000 (+0100)
Subject: Optimiser bugfix: handle width for C negation the same way as for INTERCAL unaries
X-Git-Tag: 0.29~41^2~9
X-Git-Url: http://thyrsus.com/gitweb/?a=commitdiff_plain;h=a82310b96e97e41823a4380ac333d5ac665365cb;p=intercal.git

Optimiser bugfix: handle width for C negation the same way as for INTERCAL unaries
---

diff --git a/src/feh2.c b/src/feh2.c
index d2d5288..99b4be5 100644
--- a/src/feh2.c
+++ b/src/feh2.c
@@ -743,7 +743,7 @@ void explexpr(node* np, FILE* fp)
     break;
 
   case C_NOT:
-    (void) fprintf(fp, "(~ ");
+    (void) fprintf(fp, "(~%d ", np->width);
     explexpr(np->rval, fp);
     (void) fprintf(fp, ")");
     break;
@@ -1440,7 +1440,7 @@ void prexpr(node *np, FILE *fp, int freenode)
 
     case C_NOT:
 	(void) fprintf(fp, "(~");
-        tempint=np->rval->width; /* AIS */
+        tempint=np->width; /* AIS */
 	prexpr(np->rval, fp, freenode);
 	if (tempint == ick_Small_digits)
 	    (void) fprintf(fp, " & ick_Max_small)");