diff src/lread.c @ 13455:4f5a9ce67782

(oblookup): Clear ARRAY_MARK_FLAG in obsize.
author Richard M. Stallman <rms@gnu.org>
date Fri, 10 Nov 1995 15:56:08 +0000
parents 941c37982f37
children 0a091134e047
line wrap: on
line diff
--- a/src/lread.c	Fri Nov 10 15:54:33 1995 +0000
+++ b/src/lread.c	Fri Nov 10 15:56:08 1995 +0000
@@ -1961,6 +1961,8 @@
       obarray = check_obarray (obarray);
       obsize = XVECTOR (obarray)->size;
     }
+  /* This is sometimes needed in the middle of GC.  */
+  obsize &= ~ARRAY_MARK_FLAG;
   /* Combining next two lines breaks VMS C 2.3.  */
   hash = hash_string (ptr, size);
   hash %= obsize;