diff options
| author | Doug Evans <xdje42@gmail.com> | 2014-06-02 23:46:27 -0700 |
|---|---|---|
| committer | Doug Evans <xdje42@gmail.com> | 2014-06-02 23:46:27 -0700 |
| commit | ded0378278c7bbd5c6049446032b28196a5cfb38 (patch) | |
| tree | 783ba05381595d6a6d4f95f693848614d3671f2b /gdb/guile/scm-pretty-print.c | |
| parent | 397998fc32a34d3c8993ef46da45c3957a4dd402 (diff) | |
| download | binutils-gdb-ded0378278c7bbd5c6049446032b28196a5cfb38.tar.gz | |
Add progspace support for Guile.
* Makefile.in (SUBDIR_GUILE_OBS): Add scm-progspace.o.
(SUBDIR_GUILE_SRCS): Add scm-progspace.c.
(scm-progspace.o): New rule.
* guile/guile-internal.h (pspace_smob): New typedef.
(psscm_pspace_smob_pretty_printers): Declare.
(psscm_pspace_smob_from_pspace): Declare.
(psscm_scm_from_pspace): Declare.
* guile/guile.c (initialize_gdb_module): Call
gdbscm_initialize_pspaces.
* guile/lib/gdb.scm: Export progspace symbols.
* guile/lib/gdb/printing.scm (prepend-pretty-printer!): Add progspace
support.
(append-pretty-printer!): Ditto.
* guile/scm-pretty-print.c (ppscm_find_pretty_printer_from_progspace):
Implement.
* guile/scm-progspace.c: New file.
doc/
* guile.texi (Guile API): Add entry for Progspaces In Guile.
(GDB Scheme Data Types): Mention <gdb:progspace> object.
(Progspaces In Guile): New node.
testsuite/
* gdb.guile/scm-pretty-print.exp: Add tests for objfile and progspace
pretty-printer lookup.
* gdb.guile/scm-pretty-print.scm (pp_s-printer): New function.
(make-pp_s-printer): Call it.
(make-pretty-printer-from-dict): New function.
(lookup-pretty-printer-maker-from-dict): New function.
(*pretty-printer*): Simplify.
(make-objfile-pp_s-printer): New function.
(install-objfile-pretty-printers!): New function.
(make-progspace-pp_s-printer): New function.
(install-progspace-pretty-printers!): New function.
* gdb.guile/scm-progspace.c: New file.
* gdb.guile/scm-progspace.exp: New file.
Diffstat (limited to 'gdb/guile/scm-pretty-print.c')
| -rw-r--r-- | gdb/guile/scm-pretty-print.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gdb/guile/scm-pretty-print.c b/gdb/guile/scm-pretty-print.c index 6aa911912fe..e20da68027c 100644 --- a/gdb/guile/scm-pretty-print.c +++ b/gdb/guile/scm-pretty-print.c @@ -441,7 +441,11 @@ ppscm_find_pretty_printer_from_objfiles (SCM value) static SCM ppscm_find_pretty_printer_from_progspace (SCM value) { - return SCM_BOOL_F; /*TODO*/ + pspace_smob *p_smob = psscm_pspace_smob_from_pspace (current_program_space); + SCM pp + = ppscm_search_pp_list (psscm_pspace_smob_pretty_printers (p_smob), value); + + return pp; } /* Subroutine of find_pretty_printer to simplify it. |