mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 17:20:29 +02:00
Code Activity

(scm_set_smob_apply): protect tc value with scm_remember_upto_here_1.

Browse source 
Problem was noticed when m68k build segfaulted on document generation.
Reported by Sam Hocevar <sam@zoy.org> (thanks).
This commit is contained in:
Rob Browning 2004-09-20 03:47:07 +00:00
parent e0a5032c60
commit 8d0c5006b9
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/smob.c
View file

@ -449,6 +449,7 @@ scm_set_smob_apply (scm_t_bits tc, SCM (*apply) (),
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_2 = apply_2;
scm_smobs[SCM_TC2SMOBNUM (tc)].apply_3 = apply_3;
scm_smobs[SCM_TC2SMOBNUM (tc)].gsubr_type = type;
scm_remember_upto_here_1 (tc);
}
SCM