From 573372665ab47bb6c0451ee7ca3ff5fce9b370e0 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 11 Nov 1999 15:02:40 -0200
Subject: new API function `lua_equalobj'

---
 lbuiltin.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'lbuiltin.c')

diff --git a/lbuiltin.c b/lbuiltin.c
index 7dc09664..98918b54 100644
--- a/lbuiltin.c
+++ b/lbuiltin.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbuiltin.c,v 1.70 1999/11/04 17:22:26 roberto Exp roberto $
+** $Id: lbuiltin.c,v 1.71 1999/11/10 15:41:11 roberto Exp roberto $
 ** Built-in functions
 ** See Copyright Notice in lua.h
 */
@@ -741,6 +741,10 @@ static void testC (void) {
                    n=lua_next(reg[n], (int)lua_getnumber(reg[getnum(s)]));
                    lua_pushnumber(n); break;
                  }
+      case 'q' : { int n1=getnum(s); int n2=getnum(s);
+                   lua_pushnumber(lua_equalobj(reg[n1], reg[n2]));
+                   break;
+                 }
       default: luaL_verror("unknown command in `testC': %c", *(s-1));
     }
   if (*s == 0) return;
-- 
cgit v1.2.3-55-g6feb