aboutsummaryrefslogtreecommitdiff
path: root/lfunc.c
diff options
context:
space:
mode:
Diffstat (limited to 'lfunc.c')
-rw-r--r--lfunc.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/lfunc.c b/lfunc.c
index 999c35a5..21f826b0 100644
--- a/lfunc.c
+++ b/lfunc.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lfunc.c,v 2.41 2014/02/18 13:39:37 roberto Exp roberto $ 2** $Id: lfunc.c,v 2.42 2014/06/18 22:59:29 roberto Exp roberto $
3** Auxiliary functions to manipulate prototypes and closures 3** Auxiliary functions to manipulate prototypes and closures
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -20,20 +20,20 @@
20 20
21 21
22 22
23Closure *luaF_newCclosure (lua_State *L, int n) { 23CClosure *luaF_newCclosure (lua_State *L, int n) {
24 GCObject *o = luaC_newobj(L, LUA_TCCL, sizeCclosure(n)); 24 GCObject *o = luaC_newobj(L, LUA_TCCL, sizeCclosure(n));
25 Closure *c = gco2cl(o); 25 CClosure *c = gco2ccl(o);
26 c->c.nupvalues = cast_byte(n); 26 c->nupvalues = cast_byte(n);
27 return c; 27 return c;
28} 28}
29 29
30 30
31Closure *luaF_newLclosure (lua_State *L, int n) { 31LClosure *luaF_newLclosure (lua_State *L, int n) {
32 GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(n)); 32 GCObject *o = luaC_newobj(L, LUA_TLCL, sizeLclosure(n));
33 Closure *c = gco2cl(o); 33 LClosure *c = gco2lcl(o);
34 c->l.p = NULL; 34 c->p = NULL;
35 c->l.nupvalues = cast_byte(n); 35 c->nupvalues = cast_byte(n);
36 while (n--) c->l.upvals[n] = NULL; 36 while (n--) c->upvals[n] = NULL;
37 return c; 37 return c;
38} 38}
39 39