summaryrefslogtreecommitdiff
path: root/libguile/continuations.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 03:26:29 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-10-14 03:26:29 +0000
commit0db18cf45ae15a48c9c55a2b9e3767d91c8faba8 (patch)
tree4a73630da606ff1f3107e9bb1435e87db5f60015 /libguile/continuations.c
parent6cb66921f65e0470d5a08ef1a0c2c4062791d366 (diff)
downloadguile-0db18cf45ae15a48c9c55a2b9e3767d91c8faba8.tar.gz
* continuations.c, continuations.h, debug.c, gc.c, init.c, root.c,
stacks.c: Renamed regs --> scm_contregs.
Diffstat (limited to 'libguile/continuations.c')
-rw-r--r--libguile/continuations.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/continuations.c b/libguile/continuations.c
index 48d758b9d..678628a08 100644
--- a/libguile/continuations.c
+++ b/libguile/continuations.c
@@ -68,7 +68,7 @@ scm_make_cont (answer)
SCM_NEWCELL (cont);
*answer = cont;
SCM_DEFER_INTS;
- SCM_SETJMPBUF (cont, scm_must_malloc ((long) sizeof (regs), s_cont));
+ SCM_SETJMPBUF (cont, scm_must_malloc ((long) sizeof (scm_contregs), s_cont));
SCM_CAR (cont) = scm_tc7_contin;
SCM_DYNENV (cont) = scm_dynwinds;
SCM_THROW_VALUE = SCM_EOL;
@@ -98,7 +98,7 @@ scm_make_cont (answer)
SCM_FLUSH_REGISTER_WINDOWS;
j = scm_stack_size (SCM_BASE (scm_rootcont));
SCM_SETJMPBUF (cont,
- scm_must_malloc ((long) (sizeof (regs) + j * sizeof (SCM_STACKITEM)),
+ scm_must_malloc ((long) (sizeof (scm_contregs) + j * sizeof (SCM_STACKITEM)),
s_cont));
SCM_SETLENGTH (cont, j, scm_tc7_contin);
SCM_DYNENV (cont) = scm_dynwinds;
@@ -109,7 +109,7 @@ scm_make_cont (answer)
#ifndef SCM_STACK_GROWS_UP
src -= SCM_LENGTH (cont);
#endif /* ndef SCM_STACK_GROWS_UP */
- dst = (SCM_STACKITEM *) (SCM_CHARS (cont) + sizeof (regs));
+ dst = (SCM_STACKITEM *) (SCM_CHARS (cont) + sizeof (scm_contregs));
for (j = SCM_LENGTH (cont); 0 <= --j;)
*dst++ = *src++;
#endif /* def CHEAP_CONTINUATIONS */
@@ -165,7 +165,7 @@ scm_dynthrow (a)
grow_throw (a);
#endif /* def SCM_STACK_GROWS_UP */
SCM_FLUSH_REGISTER_WINDOWS;
- src = (SCM_STACKITEM *) (SCM_CHARS (cont) + sizeof (regs));
+ src = (SCM_STACKITEM *) (SCM_CHARS (cont) + sizeof (scm_contregs));
for (j = SCM_LENGTH (cont); 0 <= --j;)
*dst++ = *src++;
#ifdef sparc /* clear out stack up to this stackframe */