summaryrefslogtreecommitdiff
path: root/libguile/gc-mark.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-08 23:18:23 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2002-08-08 23:18:23 +0000
commitbe3ff02158f2bee16b1cf8a8419ba80613172ee1 (patch)
treeec47395ef502f86f2a96c585eff4eb7277044339 /libguile/gc-mark.c
parentda220f2794a54186721c6ef6ae6a45ba0c3b55a7 (diff)
downloadguile-be3ff02158f2bee16b1cf8a8419ba80613172ee1.tar.gz
* gc-card.c ("sweep_card"): remove SCM_MISC_ERROR messages: print
message and abort. * gc-mark.c ("scm_gc_mark_dependencies"): idem.
Diffstat (limited to 'libguile/gc-mark.c')
-rw-r--r--libguile/gc-mark.c18
1 files changed, 14 insertions, 4 deletions
diff --git a/libguile/gc-mark.c b/libguile/gc-mark.c
index d7414d648..56ccd57f1 100644
--- a/libguile/gc-mark.c
+++ b/libguile/gc-mark.c
@@ -403,7 +403,10 @@ scm_gc_mark_dependencies (SCM p)
i = SCM_PTOBNUM (ptr);
#if (SCM_DEBUG_CELL_ACCESSES == 1)
if (!(i < scm_numptob))
- SCM_MISC_ERROR ("undefined port type", SCM_EOL);
+ {
+ fprintf (stderr, "undefined port type");
+ abort();
+ }
#endif
if (SCM_PTAB_ENTRY(ptr))
scm_gc_mark (SCM_FILENAME (ptr));
@@ -431,7 +434,10 @@ scm_gc_mark_dependencies (SCM p)
i = SCM_SMOBNUM (ptr);
#if (SCM_DEBUG_CELL_ACCESSES == 1)
if (!(i < scm_numsmob))
- SCM_MISC_ERROR ("undefined smob type", SCM_EOL);
+ {
+ fprintf (stderr, "undefined smob type");
+ abort();
+ }
#endif
if (scm_smobs[i].mark)
{
@@ -443,7 +449,8 @@ scm_gc_mark_dependencies (SCM p)
}
break;
default:
- SCM_MISC_ERROR ("unknown type", SCM_EOL);
+ fprintf (stderr, "unknown type");
+ abort();
}
/*
@@ -472,7 +479,10 @@ gc_mark_loop:
#endif
if (!valid_cell)
- SCM_MISC_ERROR ("rogue pointer in heap", SCM_EOL);
+ {
+ fprintf (stderr, "rogue pointer in heap");
+ abort();
+ }
}
if (SCM_GC_MARK_P (ptr))