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

Move containing_scm arg from gdbscm_fill_eqable_gsmob_ptr_slot

Browse Source 
to gdbscm_init_eqable_gsmob.

	* guile/scm-gsmob.c (gdbscm_init_eqable_gsmob): New arg containing_scm.
	All callers updated.
	(gdbscm_fill_eqable_gsmob_ptr_slot): Delete arg containing_scm.
	All callers updated.
	* guile/guile-internal.h (gdbscm_init_eqable_gsmob): Update.
	(gdbscm_fill_eqable_gsmob_ptr_slot): Update.
This commit is contained in:
Doug Evans
2014-02-20 09:27:12 -08:00
parent 8c3cb9fa44
commit 1254eefca2
8 changed files with 28 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
gdb/guile/scm-symtab.c
View File

@@ -184,7 +184,7 @@ stscm_make_symtab_smob (void)
st_smob->symtab = NULL;
st_scm = scm_new_smob (symtab_smob_tag, (scm_t_bits) st_smob);
gdbscm_init_eqable_gsmob (&st_smob->base);
gdbscm_init_eqable_gsmob (&st_smob->base, st_scm);
return st_scm;
}
@@ -226,7 +226,7 @@ stscm_scm_from_symtab (struct symtab *symtab)
st_scm = stscm_make_symtab_smob ();
st_smob = (symtab_smob *) SCM_SMOB_DATA (st_scm);
st_smob->symtab = symtab;
gdbscm_fill_eqable_gsmob_ptr_slot (slot, &st_smob->base, st_scm);
gdbscm_fill_eqable_gsmob_ptr_slot (slot, &st_smob->base);
return st_scm;
}