* THANKS: Add Paolo Bonzini and Bob Rossi.

[bison.git] / src / symlist.c

diff --git a/src/symlist.c b/src/symlist.c
index 0e84a528672909956f50799beed216e349f64e71..b97c2ecb59ef82ec41037555c4f70c62a32cf1d2 100644 (file)
--- a/src/symlist.c
+++ b/src/symlist.c
@@ -185,7 +185,7 @@ symbol_list_n_type_name_get (symbol_list *l, location loc, int n)
       complain_at (loc, _("invalid $ value: $%d"), n);
       return NULL;
     }
-  assert (l->content_type == SYMLIST_SYMBOL);
+  aver (l->content_type == SYMLIST_SYMBOL);
   return l->content.sym->type_name;
 }
 
@@ -212,7 +212,8 @@ symbol_list_destructor_set (symbol_list *node, const char *destructor,
         symbol_destructor_set (node->content.sym, destructor, loc);
         break;
       case SYMLIST_TYPE:
-        /* FIXME: */
+        semantic_type_destructor_set (
+          semantic_type_get (node->content.type_name), destructor, loc);
         break;
       case SYMLIST_DEFAULT:
         default_destructor_set (destructor, loc);
@@ -229,7 +230,8 @@ symbol_list_printer_set (symbol_list *node, const char *printer, location loc)
         symbol_printer_set (node->content.sym, printer, loc);
         break;
       case SYMLIST_TYPE:
-        /* FIXME: */
+        semantic_type_printer_set (
+          semantic_type_get (node->content.type_name), printer, loc);
         break;
       case SYMLIST_DEFAULT:
         default_printer_set (printer, loc);