36-fyi-fix-traces.patch

[Akim Demaille]

Index: ChangeLog
from  Akim Demaille  <address@hidden>
        * src/derives.c (print_derives): Fix and enrich.
        * src/closure.c (print_fderives): Likewise.
        
        
Index: src/closure.c
--- src/closure.c Sun, 18 Nov 2001 13:26:53 +0100 akim
+++ src/closure.c Sun, 18 Nov 2001 13:43:52 +0100 akim
@@ -100,7 +100,13 @@
 
       for (j = 0; j <= nrules; j++)
        if (BITISSET (rp, j))
-         fprintf (stderr, "\t\t%d (%s)\n", j, tags[j]);
+         {
+           short *rhsp;
+           fprintf (stderr, "\t\t%d:", j);
+           for (rhsp = ritem + rule_table[j].rhs; *rhsp > 0; ++rhsp)
+             fprintf (stderr, " %s", tags[*rhsp]);
+           fputc ('\n', stderr);
+         }
     }
   fprintf (stderr, "\n\n");
 }
Index: src/derives.c
--- src/derives.c Sun, 18 Nov 2001 11:58:17 +0100 akim
+++ src/derives.c Sun, 18 Nov 2001 13:43:53 +0100 akim
@@ -38,15 +38,21 @@
 print_derives (void)
 {
   int i;
-  short *sp;
 
   fputs ("DERIVES\n", stderr);
 
   for (i = ntokens; i < nsyms; i++)
     {
+      short *sp;
       fprintf (stderr, "\t%s derives\n", tags[i]);
       for (sp = derives[i]; *sp > 0; sp++)
-       fprintf (stderr, "\t\t%d (%s)\n", *sp, tags[*sp]);
+       {
+         short *rhsp;
+         fprintf (stderr, "\t\t%d:", *sp);
+         for (rhsp = ritem + rule_table[*sp].rhs; *rhsp > 0; ++rhsp)
+           fprintf (stderr, " %s", tags[*rhsp]);
+         fputc ('\n', stderr);
+       }
     }
 
   fputs ("\n\n", stderr);