mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 05:51:21 -08:00
Code Issues Projects Releases Wiki Activity

mirror_obarray

Browse source
This commit is contained in:
Gerd Möllmann 2024-05-17 15:44:49 +02:00
parent b49bb7f2c6
commit 36598472e6
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/igc.c
View file

@ -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