Corrected problem in reading symbol table: t14=15, t15=16 did not work properly

diff --git a/util/grind/db_symtab.g b/util/grind/db_symtab.g
index d39801d..25989e0 100644 (file)
--- a/util/grind/db_symtab.g
+++ b/util/grind/db_symtab.g
@@ -263,6 +263,9 @@ type_name(p_type *t; p_symbol sy;)
        '='                     
        type(p, type_index, sy)
   |
+                               { if (*t && ! *p) *p = *t; 
+                                 else if (*t) **t = **p;
+                               }
   ]
                                { if (*p == 0) *p = new_type();
                                  *t = *p;

diff --git a/util/grind/type.c b/util/grind/type.c
index 8b08cc8..9120f75 100644 (file)
--- a/util/grind/type.c
+++ b/util/grind/type.c
@@ -327,7 +327,7 @@ clean_tp_tab()
                                p_type p = list_row[i].row[j/NINCR][j%NINCR];
                                if (p && p->ty_class == 0) {
                                        error("%s: incomplete type (%d,%d)",
-                                             listfile->sy_idf->id_text,
+                                             FileScope->sc_definedby->sy_idf->id_text,
                                              i,
                                              j);
                                }