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

Fix fix_native_cu

Browse source
This commit is contained in:
Gerd Möllmann 2024-04-29 07:01:06 +02:00
parent 839c1f2971
commit d8017f68ee
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/igc.c
View file

@ -1559,8 +1559,11 @@ fix_native_cu (mps_ss_t ss, struct Lisp_Native_Comp_Unit *u)
MPS_SCAN_BEGIN (ss)
{
IGC_FIX_CALL_FN (ss, struct Lisp_Vector, u, fix_vectorlike);
size_t n = ASIZE (u->data_impure_vec);
IGC_FIX12_NOBJS (ss, u->data_imp_relocs, n);
if (u->data_imp_relocs)
{
size_t n = ASIZE (u->data_impure_vec);
IGC_FIX12_NOBJS (ss, u->data_imp_relocs, n);
}
}
MPS_SCAN_END (ss);
return MPS_RES_OK;