nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new function 'luaT_trybinTM'

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2013-04-29 13:56:50 -03:00
parent 360587f319
commit b4be507578
2 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ltm.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: ltm.c,v 2.17 2013/04/25 16:07:52 roberto Exp roberto $
** $Id: ltm.c,v 2.18 2013/04/26 13:07:53 roberto Exp roberto $
** Tag methods
** See Copyright Notice in lua.h
*/
@@ -12,6 +12,7 @@
#include "lua.h"
#include "ldebug.h"
#include "ldo.h"
#include "lobject.h"
#include "lstate.h"
@@ -106,6 +107,17 @@ int luaT_callbinTM (lua_State *L, const TValue *p1, const TValue *p2,
}
void luaT_trybinTM (lua_State *L, const TValue *p1, const TValue *p2,
StkId res, TMS event) {
if (!luaT_callbinTM(L, p1, p2, res, event)) {
if (event == TM_CONCAT)
luaG_concaterror(L, p1, p2);
else
luaG_aritherror(L, p1, p2);
}
}
const TValue *luaT_getequalTM (lua_State *L, Table *mt1, Table *mt2) {
const TValue *tm1 = fasttm(L, mt1, TM_EQ);
const TValue *tm2;