luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Always check bytecode version when the current class changes during interpreter execution loop.

Browse source 
[INTERPRETER]
* BUG: Always check bytecode version when the current class changes during interpreter execution loop.
This commit is contained in:
Benoît Minisini 2022-10-03 13:46:20 +02:00
parent f4fb59dd48
commit d7e373c633
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
main/gbx/gbx_exec_loop.c
View file

@ -469,10 +469,12 @@ void EXEC_loop(void)
ushort code; ushort code;
VALUE *NO_WARNING(val); VALUE *NO_WARNING(val);
_CHECK_BYTECODE:
if (CP->not_3_18 != not_3_18) if (CP->not_3_18 != not_3_18)
{ {
not_3_18 = !not_3_18; not_3_18 = !not_3_18;
//fprintf(stderr, "switching to bytecode: %s\n", not_3_18 ? "NOT 3.18" : "3.18"); //fprintf(stderr, "switching to bytecode: %s (%s)\n", not_3_18 ? "NOT 3.18" : "3.18", CP->name);
if (not_3_18) if (not_3_18)
{ {
for (ind = 0xA1; ind <= 0xAE; ind++) for (ind = 0xA1; ind <= 0xAE; ind++)
@ -1185,7 +1187,7 @@ _CALL:
else else
{ {
EXEC_enter_check(val->_function.defined); EXEC_enter_check(val->_function.defined);
goto _MAIN; goto _CHECK_BYTECODE;
} }
__EXEC_NATIVE: __EXEC_NATIVE:
@ -1270,7 +1272,7 @@ _CALL:
else else
{ {
EXEC_enter(); EXEC_enter();
goto _MAIN; goto _CHECK_BYTECODE;
} }
} }
@ -1333,7 +1335,7 @@ _CALL_QUICK:
__EXEC_ENTER_Q: __EXEC_ENTER_Q:
EXEC_enter_quick(); EXEC_enter_quick();
goto _MAIN; goto _CHECK_BYTECODE;
__CALL_NATIVE_Q: __CALL_NATIVE_Q:
@ -1450,7 +1452,7 @@ _CALL_SLOW:
else else
{ {
EXEC_enter(); EXEC_enter();
goto _MAIN; goto _CHECK_BYTECODE;
} }
__CALL_NATIVE_S: __CALL_NATIVE_S: