diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-08 23:18:23 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2002-08-08 23:18:23 +0000 |
commit | be3ff02158f2bee16b1cf8a8419ba80613172ee1 (patch) | |
tree | ec47395ef502f86f2a96c585eff4eb7277044339 /libguile/gc-mark.c | |
parent | da220f2794a54186721c6ef6ae6a45ba0c3b55a7 (diff) | |
download | guile-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.c | 18 |
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)) |