commit 77fd93188e7ba15f489ca5cf353d270627d93681
parent a21c89ddc8b91c9fd4888577f7a6c60c4f640795
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Wed, 17 Jun 2009 13:16:50 -0300
'lessequal' renamed 'luaV_lessequal' and exported to be used by
'lua_compare'
Diffstat:
2 files changed, 5 insertions(+), 4 deletions(-)
diff --git a/lvm.c b/lvm.c
@@ -1,5 +1,5 @@
/*
-** $Id: lvm.c,v 2.90 2009/06/01 19:09:26 roberto Exp roberto $
+** $Id: lvm.c,v 2.91 2009/06/10 16:57:53 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -222,7 +222,7 @@ int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r) {
}
-static int lessequal (lua_State *L, const TValue *l, const TValue *r) {
+int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r) {
int res;
if (ttype(l) != ttype(r))
return luaG_ordererror(L, l, r);
@@ -616,7 +616,7 @@ void luaV_execute (lua_State *L) {
}
case OP_LE: {
Protect(
- if (lessequal(L, RKB(i), RKC(i)) == GETARG_A(i))
+ if (luaV_lessequal(L, RKB(i), RKC(i)) == GETARG_A(i))
dojump(GETARG_sBx(*ci->u.l.savedpc));
)
ci->u.l.savedpc++;
diff --git a/lvm.h b/lvm.h
@@ -1,5 +1,5 @@
/*
-** $Id: lvm.h,v 2.8 2009/03/10 17:14:37 roberto Exp $
+** $Id: lvm.h,v 2.9 2009/05/27 17:11:27 roberto Exp roberto $
** Lua virtual machine
** See Copyright Notice in lua.h
*/
@@ -26,6 +26,7 @@
LUAI_FUNC int luaV_equalval_ (lua_State *L, const TValue *t1, const TValue *t2);
LUAI_FUNC int luaV_lessthan (lua_State *L, const TValue *l, const TValue *r);
+LUAI_FUNC int luaV_lessequal (lua_State *L, const TValue *l, const TValue *r);
LUAI_FUNC const TValue *luaV_tonumber (const TValue *obj, TValue *n);
LUAI_FUNC int luaV_tostring (lua_State *L, StkId obj);
LUAI_FUNC void luaV_gettable (lua_State *L, const TValue *t, TValue *key,