st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-24 15:48:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix for https://github.com/JetBrains-Research/Lama/issues/16

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-11-24 23:11:17 +03:00
parent 8f01e5eb5b
commit 66dc5c3063
8 changed files with 54 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
runtime/runtime.c
View file

@ -1184,11 +1184,17 @@ extern int Bsexp_tag_patt (void *x) {
}
extern void* Bsta (void *v, int i, void *x) {
ASSERT_BOXED(".sta:3", x);
ASSERT_UNBOXED(".sta:2", i);
if (UNBOXED(i)) {
ASSERT_BOXED(".sta:3", x);
// ASSERT_UNBOXED(".sta:2", i);
if (TAG(TO_DATA(x)->tag) == STRING_TAG)((char*) x)[UNBOX(i)] = (char) UNBOX(v);
else ((int*) x)[UNBOX(i)] = (int) v;
if (TAG(TO_DATA(x)->tag) == STRING_TAG)((char*) x)[UNBOX(i)] = (char) UNBOX(v);
else ((int*) x)[UNBOX(i)] = (int) v;
return v;
}
* (void**) x = v;
return v;
}