From a002f1a2cbdc39b2a52e6d1e100791f106fd34bb Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Tue, 26 Sep 2000 18:37:26 +0000 Subject: * Replaced a lot of references to SCM_CHARS. --- libguile/continuations.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/continuations.c') diff --git a/libguile/continuations.c b/libguile/continuations.c index 40a863cef..fd7d9771f 100644 --- a/libguile/continuations.c +++ b/libguile/continuations.c @@ -94,7 +94,7 @@ scm_make_cont (SCM *answer) #ifndef SCM_STACK_GROWS_UP src -= SCM_LENGTH (cont); #endif /* ndef SCM_STACK_GROWS_UP */ - dst = (SCM_STACKITEM *) (SCM_CHARS (cont) + sizeof (scm_contregs)); + dst = (SCM_STACKITEM *) ((char *) SCM_CONTREGS (cont) + sizeof (scm_contregs)); /* memcpy should be safe: src and dst will never overlap */ memcpy (dst, src, sizeof (SCM_STACKITEM) * SCM_LENGTH (cont)); @@ -166,7 +166,7 @@ scm_dynthrow (SCM cont, SCM val) grow_stack (cont, val); #endif /* def SCM_STACK_GROWS_UP */ SCM_FLUSH_REGISTER_WINDOWS; - src = (SCM_STACKITEM *) (SCM_CHARS (cont) + sizeof (scm_contregs)); + src = (SCM_STACKITEM *) ((char *) SCM_CONTREGS (cont) + sizeof (scm_contregs)); copy_stack_and_call (cont, val, src, dst); } -- cgit v1.2.3