1 files changed, 10 insertions, 1 deletions

diff --git a/lfunc.c b/lfunc.c
index bd885caa..7117b783 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lfunc.c,v 1.67 2003/03/18 12:50:04 roberto Exp roberto $
+** $Id: lfunc.c,v 1.68 2003/10/02 19:21:09 roberto Exp roberto $
 ** Auxiliary functions to manipulate prototypes and closures
 ** See Copyright Notice in lua.h
 */
@@ -45,6 +45,15 @@ Closure *luaF_newLclosure (lua_State *L, int nelems, TObject *e) {
 }
 
 
+UpVal *luaF_newupval (lua_State *L) {
+  UpVal *p = luaM_new(L, UpVal);
+  luaC_link(L, valtogco(p), LUA_TUPVAL);
+  p->v = &p->value;
+  setnilvalue(p->v);
+  return p;
+}
+
+
 UpVal *luaF_findupval (lua_State *L, StkId level) {
   GCObject **pp = &L->openupval;
   UpVal *p;