artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: gc: Abort upon broken heart failure.

Browse source 
* src/gc.c (gc_cellcpy, gc_loop): Abort upon broken heart failure.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2020-09-20 10:58:36 +02:00
parent 20595cd044
commit 3f368e29e1
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 2 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/gc.c
View file

@ -424,14 +424,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
@ -606,14 +599,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