Call some functions in guile/ for effect
This changes a couple of spots in guile/ to remove a variable declaration but to still call a function for effect. gdb/ChangeLog 2018-07-22 Tom Tromey <tom@tromey.com> * guile/scm-cmd.c (gdbscm_dont_repeat): Call cmdscm_get_valid_command_smob_arg_unsafe for effect. * guile/scm-block.c (gdbscm_make_block_syms_iter): Call bkscm_get_valid_block_smob_arg_unsafe for effect.
This commit is contained in:
parent
996d693a07
commit
d5e9a511c4
@ -1,3 +1,10 @@
|
||||
2018-07-22 Tom Tromey <tom@tromey.com>
|
||||
|
||||
* guile/scm-cmd.c (gdbscm_dont_repeat): Call
|
||||
cmdscm_get_valid_command_smob_arg_unsafe for effect.
|
||||
* guile/scm-block.c (gdbscm_make_block_syms_iter): Call
|
||||
bkscm_get_valid_block_smob_arg_unsafe for effect.
|
||||
|
||||
2018-07-22 Tom Tromey <tom@tromey.com>
|
||||
|
||||
* bfin-tdep.c (bfin_push_dummy_call): Use arg_type, not
|
||||
|
@ -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 ();
|
||||
|
@ -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 ();
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user