From e78cf96c971234ea25e35a9672ef00ea389d843f Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 24 Oct 1997 15:17:24 -0200
Subject: first version of Cclosures.

---
 lfunc.c | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'lfunc.c')

diff --git a/lfunc.c b/lfunc.c
index a29894e2..7270e980 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lfunc.c,v 1.3 1997/10/16 10:59:34 roberto Exp roberto $
+** $Id: lfunc.c,v 1.4 1997/10/23 16:26:37 roberto Exp roberto $
 ** Lua Funcion auxiliar
 ** See Copyright Notice in lua.h
 */
@@ -23,10 +23,20 @@ Closure *luaF_newclosure (int nelems)
   Closure *c = (Closure *)luaM_malloc(sizeof(Closure)+nelems*sizeof(TObject));
   luaO_insertlist(&luaF_rootcl, (GCnode *)c);
   luaO_nblocks += gcsizeclosure(c);
+  c->nelems = nelems;
   return c;
 }
 
 
+void luaF_simpleclosure (TObject *o)
+{
+  Closure *c = luaF_newclosure(0);
+  c->consts[0] = *o;
+  ttype(o) = LUA_T_FUNCTION;
+  clvalue(o) = c;
+}
+
+
 TProtoFunc *luaF_newproto (void)
 {
   TProtoFunc *f = luaM_new(TProtoFunc);
-- 
cgit v1.2.3-55-g6feb