diff options
author | Pedro Alves <palves@redhat.com> | 2015-09-07 19:34:31 +0100 |
---|---|---|
committer | Pedro Alves <palves@redhat.com> | 2015-09-07 19:34:31 +0100 |
commit | 72e0248351fdc4ab125a16af24df031bca2275e4 (patch) | |
tree | ce243844c02fff130389d32ed3b7eeec23a0e3fd /gdb/guile/scm-objfile.c | |
parent | 3d4fde6974a1237d79055ee734d99cc49c6fd3f9 (diff) | |
download | gdb-72e0248351fdc4ab125a16af24df031bca2275e4.zip gdb-72e0248351fdc4ab125a16af24df031bca2275e4.tar.gz gdb-72e0248351fdc4ab125a16af24df031bca2275e4.tar.bz2 |
guile: Add as_a_scm_t_subr
Building GDB in C++ mode on Fedora 20, the gdb/guile/ code shows ~280
errors like:
src/gdb/guile/guile.c:515:1: error: invalid conversion from ‘scm_unused_struct* (*)(SCM, SCM) {aka scm_unused_struct* (*)(scm_unused_struct*, scm_unused_struct*)}’ to ‘scm_t_subr {aka void*}’ [-fpermissive]
This commit fixes them all.
gdb/ChangeLog:
2015-09-07 Pedro Alves <palves@redhat.com>
* guile/guile-internal.h (as_a_scm_t_subr): New.
* guile/guile.c (misc_guile_functions): Use it.
* guile/scm-arch.c (arch_functions): Use it.
* guile/scm-block.c (block_functions, gdbscm_initialize_blocks):
Use it.
* guile/scm-breakpoint.c (breakpoint_functions): Use it.
* guile/scm-cmd.c (command_functions): Use it.
* guile/scm-disasm.c (disasm_functions): Use it.
* guile/scm-exception.c (exception_functions)
(private_exception_functions): Use it.
* guile/scm-frame.c (frame_functions)
* guile/scm-gsmob.c (gsmob_functions): Use it.
* guile/scm-iterator.c (iterator_functions): Use it.
* guile/scm-lazy-string.c (lazy_string_functions): Use it.
* guile/scm-math.c (math_functions): Use it.
* guile/scm-objfile.c (objfile_functions): Use it.
* guile/scm-param.c (parameter_functions): Use it.
* guile/scm-ports.c (port_functions, private_port_functions): Use
it.
* guile/scm-pretty-print.c (pretty_printer_functions): Use it.
* guile/scm-progspace.c (pspace_functions): Use it.
* guile/scm-string.c (string_functions): Use it.
* guile/scm-symbol.c (symbol_functions): Use it.
* guile/scm-symtab.c (symtab_functions): Use it.
* guile/scm-type.c (type_functions, gdbscm_initialize_types): Use
it.
* guile/scm-value.c (value_functions): Use it.
Diffstat (limited to 'gdb/guile/scm-objfile.c')
-rw-r--r-- | gdb/guile/scm-objfile.c | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/gdb/guile/scm-objfile.c b/gdb/guile/scm-objfile.c index 080b905..0af151d 100644 --- a/gdb/guile/scm-objfile.c +++ b/gdb/guile/scm-objfile.c @@ -389,36 +389,37 @@ gdbscm_objfiles (void) static const scheme_function objfile_functions[] = { - { "objfile?", 1, 0, 0, gdbscm_objfile_p, + { "objfile?", 1, 0, 0, as_a_scm_t_subr (gdbscm_objfile_p), "\ Return #t if the object is a <gdb:objfile> object." }, - { "objfile-valid?", 1, 0, 0, gdbscm_objfile_valid_p, + { "objfile-valid?", 1, 0, 0, as_a_scm_t_subr (gdbscm_objfile_valid_p), "\ Return #t if the objfile is valid (hasn't been deleted from gdb)." }, - { "objfile-filename", 1, 0, 0, gdbscm_objfile_filename, + { "objfile-filename", 1, 0, 0, as_a_scm_t_subr (gdbscm_objfile_filename), "\ Return the file name of the objfile." }, - { "objfile-progspace", 1, 0, 0, gdbscm_objfile_progspace, + { "objfile-progspace", 1, 0, 0, as_a_scm_t_subr (gdbscm_objfile_progspace), "\ Return the progspace that the objfile lives in." }, - { "objfile-pretty-printers", 1, 0, 0, gdbscm_objfile_pretty_printers, + { "objfile-pretty-printers", 1, 0, 0, + as_a_scm_t_subr (gdbscm_objfile_pretty_printers), "\ Return a list of pretty-printers of the objfile." }, { "set-objfile-pretty-printers!", 2, 0, 0, - gdbscm_set_objfile_pretty_printers_x, + as_a_scm_t_subr (gdbscm_set_objfile_pretty_printers_x), "\ Set the list of pretty-printers of the objfile." }, - { "current-objfile", 0, 0, 0, gdbscm_get_current_objfile, + { "current-objfile", 0, 0, 0, as_a_scm_t_subr (gdbscm_get_current_objfile), "\ Return the current objfile if there is one or #f if there isn't one." }, - { "objfiles", 0, 0, 0, gdbscm_objfiles, + { "objfiles", 0, 0, 0, as_a_scm_t_subr (gdbscm_objfiles), "\ Return a list of all objfiles in the current program space." }, |