Finish implementation of per-type %destructor/%printer. Discussed

[bison.git] / src / symlist.c

diff --git a/src/symlist.c b/src/symlist.c
index 0e84a528672909956f50799beed216e349f64e71..d91c3fca631dbb8fc4210e67f4f8d00a4f89b67a 100644 (file)
--- a/src/symlist.c
+++ b/src/symlist.c
@@ -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:
         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);
         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:
         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);
         break;
       case SYMLIST_DEFAULT:
         default_printer_set (printer, loc);