lua

commit d396562b5ec0f14728e9a67fac7a7f7b845e1a20
parent 9d605982605db5ab8117b4cda71284bca2d25db8
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Tue, 29 Aug 2000 11:52:05 -0300

lua_equal also accepts out-of-range indices

Diffstat:
M
lapi.c
 | 
7
+++++--

1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/lapi.c b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.87 2000/08/14 19:10:14 roberto Exp roberto $
+** $Id: lapi.c,v 1.88 2000/08/28 17:57:04 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -116,7 +116,10 @@ int lua_tag (lua_State *L, int index) {
 }
 
 int lua_equal(lua_State *L, int index1, int index2) {
-  return luaO_equalObj(Index(L, index1), Index(L, index2));
+  StkId o1 = Index(L, index1);
+  StkId o2 = Index(L, index2);
+  if (o1 >= L->top || o2 >= L->top) return 0;  /* index out-of-range */
+  else return luaO_equalObj(o1, o2);
 }