andre/tyche
1
0
Fork 0
Code Pull Requests Actions Packages Releases Activity

.

Browse Source
This commit is contained in:
Andre Wagner
2026-05-15 16:44:41 -05:00
parent 5adfa566a0
commit 0bfff6527a
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/vm.c
View File

@@ -193,7 +193,7 @@ TYC_RESULT tyc_expr(TycheVM* T, TYC_EXPR expr)
static TYC_RESULT step(TycheVM* T) static TYC_RESULT step(TycheVM* T)
{ {
VALUE a, b; VALUE a;
TYC_RESULT r; TYC_RESULT r;
Location* loc = location_top(T); Location* loc = location_top(T);
@@ -208,8 +208,6 @@ static TYC_RESULT step(TycheVM* T)
break; break;
case TO_SUM: case TO_SUM:
TRY(stack_pop(T->stack, &b))
TRY(stack_pop(T->stack, &a))
TRY(tyc_expr(T, TX_SUM)) TRY(tyc_expr(T, TX_SUM))
break; break;

5
test/tests.c
View File

@@ -369,9 +369,8 @@ static void run_assembly_test(lua_State* L)
// check stack top // check stack top
lua_getfield(L, -1, "expected_stack_top"); lua_getfield(L, -1, "expected_stack_top");
if (lua_isinteger(L, -1)) { if (lua_isinteger(L, -1)) {
int32_t v; TYC_TYPE type; assert(tyc_type(T, -1, &type) == T_OK); assert(type == TT_INTEGER);
assert(tyc_tointeger(T, -1, &v) == T_OK); int32_t v; assert(tyc_tointeger(T, -1, &v) == T_OK); assert(v == lua_tointeger(L, -1));
assert(v == lua_tointeger(L, -1));
} }
else if (!lua_isnil(L, -1)) else if (!lua_isnil(L, -1))
abort(); abort();