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-block.c
View File

@@ -193,7 +193,7 @@ bkscm_make_block_smob (void)
b_smob->block = NULL;
b_smob->objfile = NULL;
b_scm = scm_new_smob (block_smob_tag, (scm_t_bits) b_smob);
gdbscm_init_eqable_gsmob (&b_smob->base);
gdbscm_init_eqable_gsmob (&b_smob->base, b_scm);
return b_scm;
}
@@ -237,7 +237,7 @@ bkscm_scm_from_block (const struct block *block, struct objfile *objfile)
b_smob = (block_smob *) SCM_SMOB_DATA (b_scm);
b_smob->block = block;
b_smob->objfile = objfile;
gdbscm_fill_eqable_gsmob_ptr_slot (slot, &b_smob->base, b_scm);
gdbscm_fill_eqable_gsmob_ptr_slot (slot, &b_smob->base);
return b_scm;
}