diff options
Diffstat (limited to 'gdb/guile/scm-pretty-print.c')
| -rw-r--r-- | gdb/guile/scm-pretty-print.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gdb/guile/scm-pretty-print.c b/gdb/guile/scm-pretty-print.c index cc97dcd..6aa9119 100644 --- a/gdb/guile/scm-pretty-print.c +++ b/gdb/guile/scm-pretty-print.c @@ -127,18 +127,6 @@ static SCM ppscm_string_string; /* Administrivia for pretty-printer matcher smobs. */ -/* The smob "mark" function for <gdb:pretty-printer>. */ - -static SCM -ppscm_mark_pretty_printer_smob (SCM self) -{ - pretty_printer_smob *pp_smob = (pretty_printer_smob *) SCM_SMOB_DATA (self); - - scm_gc_mark (pp_smob->name); - scm_gc_mark (pp_smob->enabled); - return pp_smob->lookup; -} - /* The smob "print" function for <gdb:pretty-printer>. */ static int @@ -255,19 +243,6 @@ gdbscm_set_pretty_printer_enabled_x (SCM self, SCM enabled) /* Administrivia for pretty-printer-worker smobs. These are created when a matcher recognizes a value. */ -/* The smob "mark" function for <gdb:pretty-printer-worker>. */ - -static SCM -ppscm_mark_pretty_printer_worker_smob (SCM self) -{ - pretty_printer_worker_smob *w_smob - = (pretty_printer_worker_smob *) SCM_SMOB_DATA (self); - - scm_gc_mark (w_smob->display_hint); - scm_gc_mark (w_smob->to_string); - return w_smob->children; -} - /* The smob "print" function for <gdb:pretty-printer-worker>. */ static int @@ -1104,16 +1079,12 @@ gdbscm_initialize_pretty_printers (void) pretty_printer_smob_tag = gdbscm_make_smob_type (pretty_printer_smob_name, sizeof (pretty_printer_smob)); - scm_set_smob_mark (pretty_printer_smob_tag, - ppscm_mark_pretty_printer_smob); scm_set_smob_print (pretty_printer_smob_tag, ppscm_print_pretty_printer_smob); pretty_printer_worker_smob_tag = gdbscm_make_smob_type (pretty_printer_worker_smob_name, sizeof (pretty_printer_worker_smob)); - scm_set_smob_mark (pretty_printer_worker_smob_tag, - ppscm_mark_pretty_printer_worker_smob); scm_set_smob_print (pretty_printer_worker_smob_tag, ppscm_print_pretty_printer_worker_smob); |