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/gc.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/gc.c')
-rw-r--r-- | libguile/gc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/gc.c b/libguile/gc.c index 28e86e4e0..a19492450 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -575,7 +575,7 @@ gc_mark_nimp: (ptr) break; SCM_SETGC8MARK (ptr); scm_mark_locations (SCM_VELTS (ptr), - (scm_sizet) (SCM_LENGTH (ptr) + sizeof (regs) / sizeof (SCM_STACKITEM))); + (scm_sizet) (SCM_LENGTH (ptr) + sizeof (scm_contregs) / sizeof (SCM_STACKITEM))); break; case scm_tc7_bvect: case scm_tc7_byvect: @@ -1064,7 +1064,7 @@ scm_gc_sweep () case scm_tc7_contin: if SCM_GC8MARKP (scmptr) goto c8mrkcontinue; - m += SCM_LENGTH (scmptr) * sizeof (SCM_STACKITEM) + sizeof (regs); + m += SCM_LENGTH (scmptr) * sizeof (SCM_STACKITEM) + sizeof (scm_contregs); goto freechars; case scm_tc7_ssymbol: if SCM_GC8MARKP(scmptr) |