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

Don't make a root for non-existent ephemeral relocs

Browse source
This commit is contained in:
Gerd Möllmann 2024-05-23 08:56:28 +02:00
parent 31e90f38c9
commit 2bd8ee79d9
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/igc.c
View file

@ -2197,8 +2197,9 @@ igc_root_create_comp_unit (struct Lisp_Native_Comp_Unit *u)
r->data_relocs = root_create_exact_n (u->data_relocs, u->n_data_relocs);
r->data_imp_relocs
= root_create_exact_n (u->data_imp_relocs, u->n_data_imp_relocs);
r->data_eph_relocs
= root_create_exact_n (u->data_eph_relocs, u->n_data_eph_relocs);
if (u->n_data_eph_relocs)
r->data_eph_relocs
= root_create_exact_n (u->data_eph_relocs, u->n_data_eph_relocs);
r->comp_unit = root_create_exact_n (u->comp_unit, 1);
igc_assert (u->igc_info == NULL);
u->igc_info = r;
@ -2211,7 +2212,8 @@ igc_root_destroy_comp_unit (struct Lisp_Native_Comp_Unit *u)
struct igc_cu_roots *r = u->igc_info;
destroy_root (&r->data_relocs);
destroy_root (&r->data_imp_relocs);
destroy_root (&r->data_eph_relocs);
if (r->data_eph_relocs)
destroy_root (&r->data_eph_relocs);
destroy_root (&r->comp_unit);
xfree (r);
u->igc_info = NULL;