mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

* continuations.c, continuations.h, debug.c, gc.c, init.c, root.c,

Browse source 
stacks.c: Renamed regs --> scm_contregs.
This commit is contained in:
Mikael Djurfeldt 1996-10-14 03:26:29 +00:00
parent 6cb66921f6
commit 0db18cf45a
4 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/gc.c
View file

@ -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)