gdb/guile/scm-type.c

96 tyscm_type_smob_type (type_smob *t_smob)
98   return t_smob->type;
131   const type_smob *t_smob = (const type_smob *) p;
133   return htab_hash_pointer (t_smob->type);
178   type_smob *t_smob = (type_smob *) SCM_SMOB_DATA (self);
180   if (t_smob->type != NULL)
182       htab_t htab = tyscm_type_map (t_smob->type);
184       gdbscm_clear_eqable_gsmob_ptr_slot (htab, &t_smob->base);
188   t_smob->type = NULL;
198   type_smob *t_smob = (type_smob *) SCM_SMOB_DATA (self);
199   std::string name = tyscm_type_name (t_smob->type);
256   type_smob *t_smob = (type_smob *)
261   t_smob->type = NULL;
263   t_scm = scm_new_smob (type_smob_tag, (scm_t_bits) t_smob);
264   gdbscm_init_eqable_gsmob (&t_smob->base, t_scm);
293   type_smob *t_smob, t_smob_for_lookup;
305   t_smob = (type_smob *) SCM_SMOB_DATA (t_scm);
306   t_smob->type = type;
307   gdbscm_fill_eqable_gsmob_ptr_slot (slot, &t_smob->base);
331   type_smob *t_smob = (type_smob *) SCM_SMOB_DATA (t_scm);
333   return t_smob;
342   type_smob *t_smob;
345   t_smob = (type_smob *) SCM_SMOB_DATA (t_scm);
346   return t_smob->type;
354   type_smob *t_smob = (type_smob *) *slot;
356   struct objfile *objfile = TYPE_OBJFILE (t_smob->type);
364   t_smob->type = copy_type_recursive (objfile, t_smob->type, copied_types);
375   htab = tyscm_type_map (t_smob->type);
376   t_smob_for_lookup.type = t_smob->type;
379   gdbscm_fill_eqable_gsmob_ptr_slot (new_slot, &t_smob->base);
501   type_smob *t_smob;
504   t_smob = (type_smob *) SCM_SMOB_DATA (f_smob->type_scm);
506   return t_smob->type;
531   type_smob *t_smob
533   struct type *type = t_smob->type;
546   type_smob *t_smob
548   struct type *type = t_smob->type;
578   type_smob *t_smob
580   struct type *type = t_smob->type;
599   type_smob *t_smob
601   struct type *type = t_smob->type;
615   type_smob *t_smob
617   struct type *type = t_smob->type;
630   type_smob *t_smob
632   struct type *type = t_smob->type;
653   type_smob *t_smob
655   struct type *type = t_smob->type;
713   type_smob *t_smob
715   struct type *type = t_smob->type;
790   type_smob *t_smob
792   struct type *type = t_smob->type;
816   type_smob *t_smob
818   struct type *type = t_smob->type;
850   type_smob *t_smob
852   struct type *type = t_smob->type;
874   type_smob *t_smob
876   struct type *type = t_smob->type;
889   type_smob *t_smob
891   struct type *type = t_smob->type;
913   type_smob *t_smob
915   struct type *type = t_smob->type;
937   type_smob *t_smob
939   struct type *type = t_smob->type;
964   type_smob *t_smob
966   struct type *type = t_smob->type;
982   type_smob *t_smob
984   struct type *type = t_smob->type;
1023   type_smob *t_smob
1025   struct type *type = t_smob->type;
1061   type_smob *t_smob
1063   struct type *type = t_smob->type;
1093   type_smob *t_smob;
1105   t_smob = (type_smob *) SCM_SMOB_DATA (object);
1106   type = t_smob->type;