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

* dump.c (scm_undump): Bug fixed.

Browse source
This commit is contained in:
Keisuke Nishida 2001-02-16 00:57:11 +00:00
parent 14dd0e27c3
commit e228a20323
2 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/dump.c
View file

@ -408,7 +408,7 @@ scm_dump (SCM obj, SCM dstate)
case scm_tc7_vector:
{
int i;
int len = SCM_VECTOR_LENGTH (obj);
scm_bits_t len = SCM_VECTOR_LENGTH (obj);
SCM *base = SCM_VELTS (obj);
scm_store_word (scm_tc7_vector, dstate);
scm_store_word (len, dstate);
@ -458,8 +458,8 @@ scm_undump (SCM dstate)
{
SCM_NEWCELL (obj);
/* cdr was stored first */
scm_restore_object ((SCM *) &SCM_CDR (obj), dstate);
scm_restore_object ((SCM *) &SCM_CAR (obj), dstate);
scm_restore_object (SCM_CDRLOC (obj), dstate);
scm_restore_object (SCM_CARLOC (obj), dstate);
goto store_object;
}
@ -467,7 +467,7 @@ scm_undump (SCM dstate)
{
case scm_tc7_symbol:
{
int len;
scm_sizet len;
const char *mem;
scm_restore_string (&mem, &len, dstate);
obj = scm_mem2symbol (mem, len);
@ -475,7 +475,7 @@ scm_undump (SCM dstate)
}
case scm_tc7_string:
{
int len;
scm_sizet len;
const char *mem;
scm_restore_string (&mem, &len, dstate);
obj = scm_makfromstr (mem, len, 0);