diff options
Diffstat (limited to 'gdb/guile')
| -rw-r--r-- | gdb/guile/scm-block.c | 5 | ||||
| -rw-r--r-- | gdb/guile/scm-cmd.c | 6 |
2 files changed, 5 insertions, 6 deletions
diff --git a/gdb/guile/scm-block.c b/gdb/guile/scm-block.c index d4566fc..9caff79 100644 --- a/gdb/guile/scm-block.c +++ b/gdb/guile/scm-block.c @@ -613,9 +613,8 @@ bkscm_block_syms_progress_p (SCM scm) static SCM gdbscm_make_block_syms_iter (SCM self) { - block_smob *b_smob - = bkscm_get_valid_block_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); - const struct block *block = b_smob->block; + /* Call for side effects. */ + bkscm_get_valid_block_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); SCM progress, iter; progress = bkscm_make_block_syms_progress_smob (); diff --git a/gdb/guile/scm-cmd.c b/gdb/guile/scm-cmd.c index 88a9864..4291933 100644 --- a/gdb/guile/scm-cmd.c +++ b/gdb/guile/scm-cmd.c @@ -267,9 +267,9 @@ gdbscm_command_valid_p (SCM self) static SCM gdbscm_dont_repeat (SCM self) { - /* We currently don't need anything from SELF, but still verify it. */ - command_smob *c_smob - = cmdscm_get_valid_command_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); + /* We currently don't need anything from SELF, but still verify it. + Call for side effects. */ + cmdscm_get_valid_command_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME); dont_repeat (); |