From de79e7fc586c0b60a04823c0e930b227af2828d8 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 18 Dec 1997 16:32:39 -0200
Subject: back to "lua_upvalue"... (seems better choice)
---
lapi.c | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
(limited to 'lapi.c')
diff --git a/lapi.c b/lapi.c
index 3899bb86..464ef60a 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
/*
-** $Id: lapi.c,v 1.13 1997/12/11 14:48:46 roberto Exp roberto $
+** $Id: lapi.c,v 1.14 1997/12/15 16:17:20 roberto Exp roberto $
** Lua API
** See Copyright Notice in lua.h
*/
@@ -124,6 +124,15 @@ lua_Object lua_lua2C (int number)
}
+lua_Object lua_upvalue (int n)
+{
+ TObject *f = L->stack.stack+L->Cstack.lua2C-1;
+ if (ttype(f) != LUA_T_CLMARK || n <= 0 || n > clvalue(f)->nelems)
+ return LUA_NOOBJECT;
+ return put_luaObject(&clvalue(f)->consts[n]);
+}
+
+
int lua_callfunction (lua_Object function)
{
if (function == LUA_NOOBJECT)
--
cgit v1.2.3-55-g6feb