diff options
Diffstat (limited to 'gdb/guile/scm-frame.c')
-rw-r--r-- | gdb/guile/scm-frame.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/guile/scm-frame.c b/gdb/guile/scm-frame.c index 68fa35cf94c..6bbb6f81d68 100644 --- a/gdb/guile/scm-frame.c +++ b/gdb/guile/scm-frame.c @@ -611,11 +611,11 @@ gdbscm_frame_block (SCM self) } for (fn_block = block; - fn_block != NULL && BLOCK_FUNCTION (fn_block) == NULL; - fn_block = BLOCK_SUPERBLOCK (fn_block)) + fn_block != NULL && fn_block->function () == NULL; + fn_block = fn_block->superblock ()) continue; - if (block == NULL || fn_block == NULL || BLOCK_FUNCTION (fn_block) == NULL) + if (block == NULL || fn_block == NULL || fn_block->function () == NULL) { scm_misc_error (FUNC_NAME, _("cannot find block for frame"), scm_list_1 (self)); @@ -624,7 +624,7 @@ gdbscm_frame_block (SCM self) if (block != NULL) { return bkscm_scm_from_block - (block, symbol_objfile (BLOCK_FUNCTION (fn_block))); + (block, fn_block->function ()->objfile ()); } return SCM_BOOL_F; |