[Hat] Fix for Debug Prints in hat-c.c

19 Jun 2008

A few of the print statements that are turned on in hat-c.c when DEBUG is
defined don't print all of their arguments, potentially resulting in
strange output if they were used. This patch fixes that.

Noah Lavine

--- hat-c.c	2006-11-15 05:45:17.000000000 -0500
+++ hat-c.c	2008-06-15 18:18:14.247202914 -0400
@@ -749,7 +749,7 @@
   writeFileOffset(arg1);
   writeFileOffset(arg2);
   writeFileOffset(arg3);
-  HIDE(fprintf(stderr,"\tmkValueApp3 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,fo);)
+  HIDE(fprintf(stderr,"\tmkValueApp3 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,fo);)
   return fo;
 }

@@ -1019,7 +1019,7 @@
   writeFileOffset(arg11);
   writeFileOffset(arg12);
   writeFileOffset(arg13);
-  HIDE(fprintf(stderr,"\tmkValueApp13 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,LastExp);)
+  HIDE(fprintf(stderr,"\tmkValueApp13 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,LastExp);)
   return fo;
 }

@@ -1053,7 +1053,7 @@
   writeFileOffset(arg12);
   writeFileOffset(arg13);
   writeFileOffset(arg14);
-  HIDE(fprintf(stderr,"\tmkValueApp14 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,LastExp);)
+  HIDE(fprintf(stderr,"\tmkValueApp14 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,LastExp);)
   return fo;
 }

@@ -1088,7 +1088,7 @@
   writeFileOffset(arg13);
   writeFileOffset(arg14);
   writeFileOffset(arg15);
-  HIDE(fprintf(stderr,"\tmkValueApp15 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,LastExp);)
+  HIDE(fprintf(stderr,"\tmkValueApp15 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,fun,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,LastExp);)
   return fo;
 }

@@ -1187,7 +1187,7 @@
     writeFileOffset(use);
   writeFileOffset(parent);
   writeFloat(f);
-  HIDE(fprintf(stderr,"\tmkFloat 0x%x 0x%x %f -> 0x%x\n",parent,use,f,fp);)
+  HIDE(fprintf(stderr,"\tmkFloat 0x%x 0x%x %f -> 0x%x\n",parent,use,f,fo);)
   return fo;
 }

@@ -1315,7 +1315,7 @@
   writeByte(1);
   writeFileOffset(binder1);
   writeFileOffset(bindee1);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate1 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate1 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,fo);)
   return fo;
 }

@@ -1339,7 +1339,7 @@
   writeFileOffset(bindee1);
   writeFileOffset(binder2);
   writeFileOffset(bindee2);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate2 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate2 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,fo);)
   return fo;
 }

@@ -1365,7 +1365,7 @@
   writeFileOffset(bindee2);
   writeFileOffset(binder3);
   writeFileOffset(bindee3);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate3 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate3 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,fo);)
   return fo;
 }

@@ -1394,7 +1394,7 @@
   writeFileOffset(bindee3);
   writeFileOffset(binder4);
   writeFileOffset(bindee4);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate4 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate4 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,fo);)
   return fo;
 }

@@ -1426,7 +1426,7 @@
   writeFileOffset(bindee4);
   writeFileOffset(binder5);
   writeFileOffset(bindee5);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate5 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate5 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,fo);)
   return fo;
 }

@@ -1461,7 +1461,7 @@
   writeFileOffset(bindee5);
   writeFileOffset(binder6);
   writeFileOffset(bindee6);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate6 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate6 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,fo);)
   return fo;
 }

@@ -1499,7 +1499,7 @@
   writeFileOffset(bindee6);
   writeFileOffset(binder7);
   writeFileOffset(bindee7);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate7 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate7 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,fo);)
   return fo;
 }

@@ -1540,7 +1540,7 @@
   writeFileOffset(bindee7);
   writeFileOffset(binder8);
   writeFileOffset(bindee8);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate8 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,binder8,bindee8,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate8 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,binder8,bindee8,fo);)
   return fo;
 }

@@ -1584,7 +1584,7 @@
   writeFileOffset(bindee8);
   writeFileOffset(binder9);
   writeFileOffset(bindee9);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate9 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,binder8,bindee8,binder9,bindee9,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate9 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,binder8,bindee8,binder9,bindee9,fo);)
   return fo;
 }

@@ -1631,7 +1631,7 @@
   writeFileOffset(bindee9);
   writeFileOffset(binder10);
   writeFileOffset(bindee10);
-  HIDE(fprintf(stderr,"\tmkFieldUpdate10 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,binder8,bindee8,binder9,bindee9,binder10,bindee10,fo);)
+  HIDE(fprintf(stderr,"\tmkFieldUpdate10 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x 0x%x
0x%x 0x%x 0x%x ->
0x%x\n",parent,use,Unevaluated,arg,binder1,bindee1,binder2,bindee2,binder3,bindee3,binder4,bindee4,binder5,bindee5,binder6,bindee6,binder7,bindee7,binder8,bindee8,binder9,bindee9,binder10,bindee10,fo);)
   return fo;
 }

@@ -1727,7 +1727,7 @@
   writeByte(fixity);
   writeByte(arity);
   writeString(name);
-  HIDE(fprintf(stderr,"\tmkConstructor 0x%x %d %d %d %d %s %d ->
0x%x\n",module,begin,end,fixity,arity,name,fo);)
+  HIDE(fprintf(stderr,"\tmkConstructor 0x%x %d %d %d %d %s ->
0x%x\n",module,begin,end,fixity,arity,name,fo);)
   return fo;
 }

    

[Hat] Fix for Debug Prints in hat-c.c

nlavine＠haverford.edu