Fixed runtime/GC-related issues

This commit is contained in:
Egor Sheremetov 2024-03-13 13:37:21 +03:00 committed by Roman Venediktov
parent 05e4c15fe2
commit a174d13c22

View file

@ -858,7 +858,7 @@ extern void *Bsexp (aint* args, aint bn) {
((auint *)r->contents)[i] = args[i]; ((auint *)r->contents)[i] = args[i];
} }
r->tag = args[fields_cnt]; r->tag = UNBOX(args[fields_cnt]);
for (aint i = fields_cnt - 1; i >= 0; --i) { for (aint i = fields_cnt - 1; i >= 0; --i) {
pop_extra_root((void**)&args[i]); pop_extra_root((void**)&args[i]);