New function tyscm_scm_to_type.
gdb/ChangeLog: * guile/guile-internal.h (tyscm_scm_to_type): Declare. * guile/scm-type.c (tyscm_scm_to_type): New function.
This commit is contained in:
parent
f8d995870f
commit
a3a5feccd2
|
@ -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>
|
2017-03-16 Jiong Wang <jiong.wang@arm.com>
|
||||||
|
|
||||||
* inf-ptrace.c (inf_ptrace_peek_poke): Change the type to
|
* inf-ptrace.c (inf_ptrace_peek_poke): Change the type to
|
||||||
|
|
|
@ -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,
|
extern type_smob *tyscm_get_type_smob_arg_unsafe (SCM type_scm, int arg_pos,
|
||||||
const char *func_name);
|
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 struct type *tyscm_type_smob_type (type_smob *t_smob);
|
||||||
|
|
||||||
extern SCM tyscm_scm_from_field (SCM type_scm, int field_num);
|
extern SCM tyscm_scm_from_field (SCM type_scm, int field_num);
|
||||||
|
|
|
@ -333,6 +333,19 @@ tyscm_get_type_smob_arg_unsafe (SCM self, int arg_pos, const char *func_name)
|
||||||
return t_smob;
|
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. */
|
/* Helper function for save_objfile_types to make a deep copy of the type. */
|
||||||
|
|
||||||
static int
|
static int
|
||||||
|
|
Loading…
Reference in New Issue