diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 03:26:29 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 03:26:29 +0000 |
commit | 0db18cf45ae15a48c9c55a2b9e3767d91c8faba8 (patch) | |
tree | 4a73630da606ff1f3107e9bb1435e87db5f60015 /libguile/continuations.c | |
parent | 6cb66921f65e0470d5a08ef1a0c2c4062791d366 (diff) | |
download | guile-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.c | 8 |
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 */ |