mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-07-08 13:37:35 +02:00
Can conservatively preserve only one type of value for debugging.
This commit is contained in:
parent
a82a13094d
commit
e57a587216
2 changed files with 7 additions and 0 deletions
3
gc.c
3
gc.c
|
@ -111,6 +111,9 @@ void sexp_conservative_mark (sexp ctx) {
|
||||||
fprintf(stderr, "GC MISS: %p: %s\n", p, sexp_pointer_source(p));
|
fprintf(stderr, "GC MISS: %p: %s\n", p, sexp_pointer_source(p));
|
||||||
fflush(stderr);
|
fflush(stderr);
|
||||||
}
|
}
|
||||||
|
#endif
|
||||||
|
#if SEXP_USE_CONSERVATIVE_GC_PRESERVE_TAG
|
||||||
|
if (sexp_pointer_tag(p) == SEXP_USE_CONSERVATIVE_GC_PRESERVE_TAG)
|
||||||
#endif
|
#endif
|
||||||
sexp_mark(ctx, p);
|
sexp_mark(ctx, p);
|
||||||
}
|
}
|
||||||
|
|
|
@ -309,6 +309,10 @@
|
||||||
#define SEXP_USE_CONSERVATIVE_GC SEXP_USE_DEBUG_GC > 1
|
#define SEXP_USE_CONSERVATIVE_GC SEXP_USE_DEBUG_GC > 1
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
#ifndef SEXP_USE_CONSERVATIVE_GC_PRESERVE_TAG
|
||||||
|
#define SEXP_USE_CONSERVATIVE_GC_PRESERVE_TAG 0
|
||||||
|
#endif
|
||||||
|
|
||||||
#ifndef SEXP_USE_TRACK_ALLOC_SOURCE
|
#ifndef SEXP_USE_TRACK_ALLOC_SOURCE
|
||||||
#define SEXP_USE_TRACK_ALLOC_SOURCE SEXP_USE_DEBUG_GC > 1
|
#define SEXP_USE_TRACK_ALLOC_SOURCE SEXP_USE_DEBUG_GC > 1
|
||||||
#endif
|
#endif
|
||||||
|
|
Loading…
Add table
Reference in a new issue