diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-frame.c | 7 | ||||
| -rw-r--r-- | gdb/guile/scm-symbol.c | 4 |
2 files changed, 4 insertions, 7 deletions
diff --git a/gdb/guile/scm-frame.c b/gdb/guile/scm-frame.c index b2d662e..70572ab 100644 --- a/gdb/guile/scm-frame.c +++ b/gdb/guile/scm-frame.c @@ -608,11 +608,8 @@ gdbscm_frame_block (SCM self) if (block != NULL) { - struct symtab *st; - SCM block_scm; - - st = SYMBOL_SYMTAB (BLOCK_FUNCTION (fn_block)); - return bkscm_scm_from_block (block, SYMTAB_OBJFILE (st)); + return bkscm_scm_from_block + (block, symbol_objfile (BLOCK_FUNCTION (fn_block))); } return SCM_BOOL_F; diff --git a/gdb/guile/scm-symbol.c b/gdb/guile/scm-symbol.c index d80aa54..6a19648 100644 --- a/gdb/guile/scm-symbol.c +++ b/gdb/guile/scm-symbol.c @@ -81,7 +81,7 @@ syscm_eq_symbol_smob (const void *ap, const void *bp) static htab_t syscm_objfile_symbol_map (struct symbol *symbol) { - struct objfile *objfile = SYMBOL_OBJFILE (symbol); + struct objfile *objfile = symbol_objfile (symbol); htab_t htab = objfile_data (objfile, syscm_objfile_data_key); if (htab == NULL) @@ -329,7 +329,7 @@ gdbscm_symbol_symtab (SCM self) = syscm_get_valid_symbol_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); const struct symbol *symbol = s_smob->symbol; - return stscm_scm_from_symtab (SYMBOL_SYMTAB (symbol)); + return stscm_scm_from_symtab (symbol_symtab (symbol)); } /* (symbol-name <gdb:symbol>) -> string */ |