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

* continuations.c (scm_make_cont): Removed cast of size_t into

Browse source 
long.
This commit is contained in:
Mikael Djurfeldt 2000-03-23 13:06:36 +00:00
parent 7284d58470
commit d3952a0527
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/continuations.c
View file

@ -102,8 +102,9 @@ scm_make_cont (SCM *answer)
SCM_FLUSH_REGISTER_WINDOWS; SCM_FLUSH_REGISTER_WINDOWS;
j = scm_stack_size (SCM_BASE (scm_rootcont)); j = scm_stack_size (SCM_BASE (scm_rootcont));
SCM_SETJMPBUF (cont, SCM_SETJMPBUF (cont,
scm_must_malloc ((long) (sizeof (scm_contregs) + j * sizeof (SCM_STACKITEM)), scm_must_malloc (sizeof (scm_contregs)
s_cont)); + j * sizeof (SCM_STACKITEM),
s_cont));
SCM_DYNENV (cont) = scm_dynwinds; SCM_DYNENV (cont) = scm_dynwinds;
SCM_THROW_VALUE (cont) = SCM_EOL; SCM_THROW_VALUE (cont) = SCM_EOL;
src = SCM_BASE (cont) = SCM_BASE (scm_rootcont); src = SCM_BASE (cont) = SCM_BASE (scm_rootcont);