aboutsummaryrefslogtreecommitdiff
path: root/lvm.c
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lvm.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/lvm.c b/lvm.c
index cfa9961b..37023afb 100644
--- a/lvm.c
+++ b/lvm.c
@@ -308,8 +308,8 @@ int luaV_finishget (lua_State *L, const TValue *t, TValue *key, StkId val,
308 /* else will try the metamethod */ 308 /* else will try the metamethod */
309 } 309 }
310 if (ttisfunction(tm)) { /* is metamethod a function? */ 310 if (ttisfunction(tm)) { /* is metamethod a function? */
311 luaT_callTMres(L, tm, t, key, val); /* call it */ 311 tag = luaT_callTMres(L, tm, t, key, val); /* call it */
312 return ttypetag(s2v(val)); 312 return tag; /* return tag of the result */
313 } 313 }
314 t = tm; /* else try to access 'tm[key]' */ 314 t = tm; /* else try to access 'tm[key]' */
315 luaV_fastget(t, key, s2v(val), luaH_get, tag); 315 luaV_fastget(t, key, s2v(val), luaH_get, tag);
@@ -606,8 +606,8 @@ int luaV_equalobj (lua_State *L, const TValue *t1, const TValue *t2) {
606 if (tm == NULL) /* no TM? */ 606 if (tm == NULL) /* no TM? */
607 return 0; /* objects are different */ 607 return 0; /* objects are different */
608 else { 608 else {
609 luaT_callTMres(L, tm, t1, t2, L->top.p); /* call TM */ 609 int tag = luaT_callTMres(L, tm, t1, t2, L->top.p); /* call TM */
610 return !l_isfalse(s2v(L->top.p)); 610 return !tagisfalse(tag);
611 } 611 }
612} 612}
613 613
@@ -914,7 +914,7 @@ void luaV_finishOp (lua_State *L) {
914 914
915/* 915/*
916** Auxiliary function for arithmetic operations over floats and others 916** Auxiliary function for arithmetic operations over floats and others
917** with two register operands. 917** with two operands.
918*/ 918*/
919#define op_arithf_aux(L,v1,v2,fop) { \ 919#define op_arithf_aux(L,v1,v2,fop) { \
920 lua_Number n1; lua_Number n2; \ 920 lua_Number n1; lua_Number n2; \