Add debug printing for resResult in hat-c.c

View: New views
1 Messages — Rating Filter:   Alert me  

Add debug printing for resResult in hat-c.c

by nlavine :: Rate this Message:

Reply to Author | View Threaded | Show Only this Message

I found it somewhat disconcerting when I looked at the debugging output
from hat-c.c that it showed many entResults and no resResults. This may be
an issue of personal style, but this patch was useful for me. It adds a
print in resResult to match the one in entResult.

Noah Lavine

--- hat-c.c 2006-11-15 05:45:17.000000000 -0500
+++ hat-c.c 2008-06-15 18:18:14.247202914 -0400

@@ -1805,6 +1805,7 @@
   LastExp = node;
   node &= hiddenMask;
   result &= hiddenMask;
+  HIDE(fprintf(stderr,"\tresResult 0x%x 0x%x 0x%x 0x%x\n", node, result,
use, ntohl(node)+1+sizeof(FileOffset)+(use?sizeof(FileOffset):0));)
   hat_reduce(ntohl(node),1+sizeof(FileOffset)+(use?sizeof(FileOffset):0),
      result);
 }

_______________________________________________
Hat mailing list
Hat@...
http://www.haskell.org/mailman/listinfo/hat