core: gc: Abort upon broken heart failure.
* src/gc.c (gc_cellcpy, gc_loop): Abort upon broken heart failure.
This commit is contained in:
parent
b040d07828
commit
85a7f71474
18
src/gc.c
18
src/gc.c
|
@ -427,14 +427,7 @@ gc_cellcpy (struct scm *dest, struct scm *src, size_t n)
|
||||||
long d = src->cdr;
|
long d = src->cdr;
|
||||||
dest->type = t;
|
dest->type = t;
|
||||||
if (t == TBROKEN_HEART)
|
if (t == TBROKEN_HEART)
|
||||||
{
|
assert_msg (0, "gc_cellcpy: broken heart");
|
||||||
dest->type = 0;
|
|
||||||
a = 0;
|
|
||||||
d = 0;
|
|
||||||
#if 0
|
|
||||||
assert_msg (0, "gc_cellcpy: broken heart");
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
if (t == TMACRO
|
if (t == TMACRO
|
||||||
|| t == TPAIR
|
|| t == TPAIR
|
||||||
|| t == TREF
|
|| t == TREF
|
||||||
|
@ -609,14 +602,7 @@ gc_loop (SCM scan)
|
||||||
{
|
{
|
||||||
long t = NTYPE (scan);
|
long t = NTYPE (scan);
|
||||||
if (t == TBROKEN_HEART)
|
if (t == TBROKEN_HEART)
|
||||||
{
|
assert_msg (0, "gc_loop: broken heart");
|
||||||
NTYPE (scan) = 0;
|
|
||||||
NCAR (scan) = 0;
|
|
||||||
NCDR (scan) = 0;
|
|
||||||
#if 0
|
|
||||||
assert_msg (0, "gc_loop: broken heart");
|
|
||||||
#endif
|
|
||||||
}
|
|
||||||
/* *INDENT-OFF* */
|
/* *INDENT-OFF* */
|
||||||
if (t == TMACRO
|
if (t == TMACRO
|
||||||
|| t == TPAIR
|
|| t == TPAIR
|
||||||
|
|
Loading…
Reference in New Issue