gdb/guile/scm-type.c

415   field_smob *f_smob = (field_smob *) SCM_SMOB_DATA (self);
418   scm_write (f_smob->type_scm, port);
419   gdbscm_printf (port, " %d", f_smob->field_num);
434   field_smob *f_smob = (field_smob *)
438   f_smob->type_scm = type_scm;
439   f_smob->field_num = field_num;
440   result = scm_new_smob (field_smob_tag, (scm_t_bits) f_smob);
441   gdbscm_init_gsmob (&f_smob->base);
490   field_smob *f_smob = (field_smob *) SCM_SMOB_DATA (f_scm);
492   return f_smob;
499 tyscm_field_smob_containing_type (field_smob *f_smob)
503   gdb_assert (tyscm_is_type (f_smob->type_scm));
504   t_smob = (type_smob *) SCM_SMOB_DATA (f_smob->type_scm);
512 tyscm_field_smob_to_field (field_smob *f_smob)
514   struct type *type = tyscm_field_smob_containing_type (f_smob);
519   return &type->field (f_smob->field_num);
1132   field_smob *f_smob
1134   struct field *field = tyscm_field_smob_to_field (f_smob);
1147   field_smob *f_smob
1149   struct field *field = tyscm_field_smob_to_field (f_smob);
1163   field_smob *f_smob
1165   struct field *field = tyscm_field_smob_to_field (f_smob);
1166   struct type *type = tyscm_field_smob_containing_type (f_smob);
1180   field_smob *f_smob
1182   struct field *field = tyscm_field_smob_to_field (f_smob);
1183   struct type *type = tyscm_field_smob_containing_type (f_smob);
1197   field_smob *f_smob
1199   struct field *field = tyscm_field_smob_to_field (f_smob);
1210   field_smob *f_smob
1212   struct field *field = tyscm_field_smob_to_field (f_smob);
1223   field_smob *f_smob
1225   struct type *type = tyscm_field_smob_containing_type (f_smob);
1228     return scm_from_bool (f_smob->field_num < TYPE_N_BASECLASSES (type));