scratch/igc 8c2ed9a8ee9 2/3: Remove relics

[Gerd Moellmann]

branch: scratch/igc
commit 8c2ed9a8ee991fb26c372b38befec3bd33bcc86d
Author: Gerd Möllmann <gerd@gnu.org>
Commit: Gerd Möllmann <gerd@gnu.org>

    Remove relics
---
 src/igc.c   | 14 ++------------
 src/igc.h   |  1 -
 src/lread.c |  1 -
 3 files changed, 2 insertions(+), 14 deletions(-)

diff --git a/src/igc.c b/src/igc.c
index 9bb041da59c..387008e7345 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -236,8 +236,8 @@ igc_static_assert (sizeof (struct igc_header) == 8);
 static mps_word_t
 to_words (mps_word_t nbytes)
 {
-  igc_assert ((nbytes & 7) == 0);
-  return nbytes >> 3;
+  igc_assert (nbytes % sizeof (mps_word_t) == 0);
+  return nbytes / sizeof (mps_word_t);
 }
 
 static mps_word_t
@@ -2423,16 +2423,6 @@ igc_make_cons (Lisp_Object car, Lisp_Object cdr)
   return make_lisp_ptr (cons, Lisp_Cons);
 }
 
-void
-igc_check_symbol (void *p)
-{
-  if (is_mps (p))
-    {
-      struct igc_header *h = client_to_base (p);
-      igc_assert (h->obj_type == IGC_OBJ_SYMBOL);
-    }
-}
-
 Lisp_Object
 igc_alloc_symbol (void)
 {
diff --git a/src/igc.h b/src/igc.h
index eae268b49e7..0183b8da71f 100644
--- a/src/igc.h
+++ b/src/igc.h
@@ -88,7 +88,6 @@ void igc_postmortem (void);
 void igc_on_grow_specpdl (void);
 void igc_on_alloc_main_thread_specpdl (void);
 void igc_on_alloc_main_thread_bc (void);
-void igc_check_symbol (void *p);
 void igc_collect (void);
 void igc_root_create_ambig (void *start, void *end);
 void igc_root_create_exact (Lisp_Object *start, Lisp_Object *end);
diff --git a/src/lread.c b/src/lread.c
index 7db76e9bb9b..98a35c55181 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2392,7 +2392,6 @@ readevalloop_1 (int old)
 static AVOID
 end_of_file_error (void)
 {
-  igc_break ();
   if (STRINGP (Vload_true_file_name))
     xsignal1 (Qend_of_file, Vload_true_file_name);