Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

New function tyscm_scm_to_type.

Browse Source 
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:
Doug Evans
2016-11-06 16:10:00 -08:00
parent f8d995870f
commit a3a5feccd2
3 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
gdb/guile/scm-type.c
View File

@@ -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