mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 23:02:31 -08:00
Code Issues Projects Releases Packages Wiki Activity

When marking the environment, only mark pages that are dirty.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-03 21:01:05 +01:00
parent 15ad18920f
commit 6c77033ad6
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/alloc_2.d
View file

@ -1234,15 +1234,15 @@ ecl_mark_env(struct cl_env_struct *env)
{
#if 1
if (env->stack) {
GC_push_conditional((void *)env->stack, (void *)env->stack_top, 1);
GC_push_conditional((void *)env->stack, (void *)env->stack_top, 0);
GC_set_mark_bit((void *)env->stack);
}
if (env->frs_top) {
GC_push_conditional((void *)env->frs_org, (void *)(env->frs_top+1), 1);
GC_push_conditional((void *)env->frs_org, (void *)(env->frs_top+1), 0);
GC_set_mark_bit((void *)env->frs_org);
}
if (env->bds_top) {
GC_push_conditional((void *)env->bds_org, (void *)(env->bds_top+1), 1);
GC_push_conditional((void *)env->bds_org, (void *)(env->bds_top+1), 0);
GC_set_mark_bit((void *)env->bds_org);
}
#endif