mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2026-08-02 00:18:51 +00:00
Code Issues 1 Releases Wiki Activity

Add missing offset to temp registers.

Browse Source
This commit is contained in:
Calvin Rose
2026-04-23 05:20:14 -05:00
parent e118f57220
commit fcf3186c7d
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/core/emit.c
+6 -4
View File
@@ -154,8 +154,9 @@ static void janetc_moveback(JanetCompiler *c,
} else if (dest.envindex >= 0) {
/* Convert src to near reg */
if (src > 255) {
janetc_emit(c, JOP_MOVE_NEAR | ((uint32_t)(src) << 16) | (JANETC_REGTEMP_5 << 8));
src = JANETC_REGTEMP_5;
int32_t newsrc = JANETC_REGTEMP_5 + 0xF0;
janetc_emit(c, JOP_MOVE_NEAR | ((uint32_t)(src) << 16) | (newsrc << 8));
src = newsrc;
}
janetc_emit(c,
((uint32_t)(dest.index) << 24) |
@@ -166,8 +167,9 @@ static void janetc_moveback(JanetCompiler *c,
janet_assert(dest.index >= 0, "bad slot");
/* Convert src to near reg */
if (src > 255) {
janetc_emit(c, JOP_MOVE_NEAR | ((uint32_t)(src) << 16) | (JANETC_REGTEMP_5 << 8));
src = JANETC_REGTEMP_5;
int32_t newsrc = JANETC_REGTEMP_5 + 0xF0;
janetc_emit(c, JOP_MOVE_NEAR | ((uint32_t)(src) << 16) | ((uint32_t)newsrc << 8));
src = newsrc;
}
janetc_emit(c,
((uint32_t)(dest.index) << 16) |