diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/guile/guile-internal.h | 2 | ||||
| -rw-r--r-- | gdb/guile/scm-type.c | 13 |
3 files changed, 20 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 9010d6f..14c9561 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2017-03-16 Doug Evans <dje@google.com> + + * guile/guile-internal.h (tyscm_scm_to_type): Declare. + * guile/scm-type.c (tyscm_scm_to_type): New function. + 2017-03-16 Jiong Wang <jiong.wang@arm.com> * inf-ptrace.c (inf_ptrace_peek_poke): Change the type to diff --git a/gdb/guile/guile-internal.h b/gdb/guile/guile-internal.h index d6c4214..361245f 100644 --- a/gdb/guile/guile-internal.h +++ b/gdb/guile/guile-internal.h @@ -561,6 +561,8 @@ extern SCM tyscm_scm_from_type (struct type *type); extern type_smob *tyscm_get_type_smob_arg_unsafe (SCM type_scm, int arg_pos, const char *func_name); +extern struct type *tyscm_scm_to_type (SCM t_scm); + extern struct type *tyscm_type_smob_type (type_smob *t_smob); extern SCM tyscm_scm_from_field (SCM type_scm, int field_num); diff --git a/gdb/guile/scm-type.c b/gdb/guile/scm-type.c index 42a8ad2..b3036ad 100644 --- a/gdb/guile/scm-type.c +++ b/gdb/guile/scm-type.c @@ -333,6 +333,19 @@ tyscm_get_type_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name) return t_smob; } +/* Return the type field of T_SCM, an object of type <gdb:type>. + This exists so that we don't have to export the struct's contents. */ + +struct type * +tyscm_scm_to_type (SCM t_scm) +{ + type_smob *t_smob; + + gdb_assert (tyscm_is_type (t_scm)); + t_smob = (type_smob *) SCM_SMOB_DATA (t_scm); + return t_smob->type; +} + /* Helper function for save_objfile_types to make a deep copy of the type. */ static int |