Exemplo n.º 1
0
static SCM
gdbscm_frame_valid_p (SCM self)
{
  frame_smob *f_smob;
  struct frame_info *frame = NULL;
  volatile struct gdb_exception except;

  f_smob = frscm_get_frame_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME);

  TRY_CATCH (except, RETURN_MASK_ALL)
    {
      frame = frscm_frame_smob_to_frame (f_smob);
    }
Exemplo n.º 2
0
static SCM
gdbscm_frame_valid_p (SCM self)
{
    frame_smob *f_smob;
    struct frame_info *frame = NULL;

    f_smob = frscm_get_frame_smob_arg_unsafe (self, SCM_ARG1, FUNC_NAME);

    TRY
    {
        frame = frscm_frame_smob_to_frame (f_smob);
    }
    CATCH (except, RETURN_MASK_ALL)
    {
        GDBSCM_HANDLE_GDB_EXCEPTION (except);
    }