static sal_smob * stscm_get_valid_sal_smob_arg (SCM self, int arg_pos, const char *func_name) { sal_smob *s_smob = stscm_get_sal_smob_arg (self, arg_pos, func_name); if (!stscm_sal_is_valid (s_smob)) { gdbscm_invalid_object_error (func_name, arg_pos, self, _("<gdb:sal>")); } return s_smob; }
static command_smob * cmdscm_get_valid_command_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name) { command_smob *c_smob = cmdscm_get_command_smob_arg_unsafe (self, arg_pos, func_name); if (!cmdscm_is_valid (c_smob)) { gdbscm_invalid_object_error (func_name, arg_pos, self, _("<gdb:command>")); } return c_smob; }
static symbol_smob * syscm_get_valid_symbol_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name) { symbol_smob *s_smob = syscm_get_symbol_smob_arg_unsafe (self, arg_pos, func_name); if (!syscm_is_valid (s_smob)) { gdbscm_invalid_object_error (func_name, arg_pos, self, _("<gdb:symbol>")); } return s_smob; }
static breakpoint_smob * bpscm_get_valid_breakpoint_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name) { breakpoint_smob *bp_smob = bpscm_get_breakpoint_smob_arg_unsafe (self, arg_pos, func_name); if (!bpscm_is_valid (bp_smob)) { gdbscm_invalid_object_error (func_name, arg_pos, self, _("<gdb:breakpoint>")); } return bp_smob; }
frame_smob * frscm_get_frame_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name) { SCM f_scm = frscm_get_frame_arg_unsafe (self, arg_pos, func_name); frame_smob *f_smob = (frame_smob *) SCM_SMOB_DATA (f_scm); if (f_smob->inferior == NULL) { gdbscm_invalid_object_error (func_name, arg_pos, self, _("inferior")); } if (f_smob->inferior != current_inferior ()) scm_misc_error (func_name, _("inferior has changed"), SCM_EOL); return f_smob; }