C++ (Cpp) gdbscm_init_eqable_gsmob 예제들

예제 #1

static SCM
syscm_make_symbol_smob (void)
{
    symbol_smob *s_smob = (symbol_smob *)
                          scm_gc_malloc (sizeof (symbol_smob), symbol_smob_name);
    SCM s_scm;

    s_smob->symbol = NULL;
    s_scm = scm_new_smob (symbol_smob_tag, (scm_t_bits) s_smob);
    gdbscm_init_eqable_gsmob (&s_smob->base, s_scm);

    return s_scm;
}

예제 #2

파일: scm-frame.c 프로젝트: cupertinomiranda/binutils

static SCM
frscm_make_frame_smob (void)
{
    frame_smob *f_smob = (frame_smob *)
                         scm_gc_malloc (sizeof (frame_smob), frame_smob_name);
    SCM f_scm;

    f_smob->frame_id = null_frame_id;
    f_smob->gdbarch = NULL;
    f_smob->inferior = NULL;
    f_smob->frame_id_is_next = 0;
    f_scm = scm_new_smob (frame_smob_tag, (scm_t_bits) f_smob);
    gdbscm_init_eqable_gsmob (&f_smob->base, f_scm);

    return f_scm;
}