st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-05 22:38:44 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Implement safepoint call

Browse source
This commit is contained in:
Roman Venediktov 2024-02-15 10:18:14 +01:00
parent 903164568c
commit 618dbdfc0f
2 changed files with 95 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

2
runtime/runtime.c
View file

@ -946,7 +946,7 @@ extern aint Bsexp_tag_patt (void *x) {
return BOX(TAG(TO_DATA(x)->data_header) == SEXP_TAG);
}
extern void *Bsta (void *v, aint i, void *x) {
extern void *Bsta (void *x, aint i, void *v) {
if (UNBOXED(i)) {
ASSERT_BOXED(".sta:3", x);
data *d = TO_DATA(x);