andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

core: gc: Abort upon broken heart failure. 

* src/gc.c (gc_cellcpy, gc_loop): Abort upon broken heart failure.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2019-11-03 09:58:36 +01:00
parent 70c12c70b3
commit 6720641493
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

@ -427,14 +427,7 @@ gc_cellcpy (struct scm *dest, struct scm *src, size_t n)
long d = src->cdr;
dest->type = t;
if (t == TBROKEN_HEART)
{
dest->type = 0;
a = 0;
d = 0;
#if 0
assert_msg (0, "gc_cellcpy: broken heart");
#endif
}
assert_msg (0, "gc_cellcpy: broken heart");
if (t == TMACRO
|| t == TPAIR
|| t == TREF
@ -609,14 +602,7 @@ gc_loop (SCM scan)
{
long t = NTYPE (scan);
if (t == TBROKEN_HEART)
{
NTYPE (scan) = 0;
NCAR (scan) = 0;
NCDR (scan) = 0;
#if 0
assert_msg (0, "gc_loop: broken heart");
#endif
}
assert_msg (0, "gc_loop: broken heart");
/* *INDENT-OFF* */
if (t == TMACRO
|| t == TPAIR