Correct for some incorrect pseudoheader sizes in igc.c

Arguably, these are bugs that should be fixed in lisp.h (along with the
comment describing the pvec header for subrs) and thread.c, by
initializing pseudovector headers so they actually describe the
pseudovectors in static memory, but the traditional GC doesn't care.

* src/alloc.c (make_pure_bignum): Call 'igc_init_header' after setting
the pvec header, not before.
* src/igc.c (gc_init_header): Catch PVEC_SUBR and PVEC_THREAD, which
sometimes have incorrect headers
* src/lisp.h (DEFUN) [HAVE_MPS]: Set pseudovector flag for subrs.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 34d4850ca32..320a5adaf0b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -6128,8 +6128,8 @@ make_pure_bignum (Lisp_Object value)
   mp_size_t new_size;
 
   struct Lisp_Bignum *b = pure_alloc (sizeof *b, Lisp_Vectorlike);
-  gc_init_header (&b->header.gc_header, IGC_OBJ_VECTOR);
   XSETPVECTYPESIZE (b, PVEC_BIGNUM, 0, VECSIZE (struct Lisp_Bignum));
+  gc_init_header (&b->header.gc_header, IGC_OBJ_VECTOR);
 
   int limb_alignment = alignof (mp_limb_t);
   pure_limbs = pure_alloc (nbytes, - limb_alignment);