From 36598472e6edfd3fbe78cdcaf68ae0d446c99bbb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Gerd=20M=C3=B6llmann?= <gerd@gnu.org>
Date: Fri, 17 May 2024 15:44:49 +0200
Subject: [PATCH] mirror_obarray

---
 src/igc.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/igc.c b/src/igc.c
index cf78f954c7f..b9dcb97215a 100644
--- a/src/igc.c
+++ b/src/igc.c
@@ -3630,10 +3630,9 @@ static void
 mirror_string (struct igc_mirror *m, struct Lisp_String *s)
 {
   igc_assert (pdumper_cold_object_p (s->u.s.data));
-  ptrdiff_t nbytes = STRING_BYTES (s) + 1;
+  ptrdiff_t nbytes = STRING_BYTES (s);
   unsigned char *data = alloc_string_data (nbytes, false);
-  data[nbytes] = 0;
-  memcpy (data, s->u.s.data, nbytes);
+  memcpy (data, s->u.s.data, nbytes + 1);
   s->u.s.data = data;
 
   IGC_MIRROR_RAW (m, &s->u.s.intervals);
@@ -3733,7 +3732,8 @@ mirror_vectorlike (struct igc_mirror *m, struct Lisp_Vector *v)
 static void
 mirror_obarray (struct igc_mirror *m, struct Lisp_Obarray *o)
 {
-  emacs_abort ();
+  if (o->buckets)
+    IGC_MIRROR_NOBJS (m, o->buckets, obarray_size (o));
 }
 #endif