C++ (Cpp) gdbscm_invalid_object_errorの例

コード例 #1

ファイル: scm-symtab.c プロジェクト: ajinkya93/netbsd-src

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;
}

コード例 #2

ファイル: scm-cmd.c プロジェクト: RWTH-OS/binutils

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;
}

コード例 #3

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;
}

コード例 #4

ファイル: scm-breakpoint.c プロジェクト: deadloko/binutils-linaro

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;
}

コード例 #5

ファイル: scm-frame.c プロジェクト: cupertinomiranda/binutils

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;
}