rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

it's ok to dump functions with upvalues

This commit is contained in:
Roberto Ierusalimschy 2003-10-20 15:42:41 -02:00
parent 03bab90303
commit c51bcf4796
4 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapi.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lapi.c,v 1.247 2003/10/10 13:29:08 roberto Exp roberto $ ** $Id: lapi.c,v 1.248 2003/10/20 12:25:23 roberto Exp roberto $
** Lua API ** Lua API
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -784,7 +784,7 @@ LUA_API int lua_dump (lua_State *L, lua_Chunkwriter writer, void *data) {
lua_lock(L); lua_lock(L);
api_checknelems(L, 1); api_checknelems(L, 1);
o = L->top - 1; o = L->top - 1;
if (isLfunction(o) && clvalue(o)->l.nupvalues == 0) if (isLfunction(o))
status = luaU_dump(L, clvalue(o)->l.p, writer, data, 0); status = luaU_dump(L, clvalue(o)->l.p, writer, data, 0);
else else
status = 0; status = 0;

7
ldo.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 1.226 2003/10/03 16:04:11 roberto Exp roberto $ ** $Id: ldo.c,v 1.227 2003/10/20 12:24:26 roberto Exp roberto $
** Stack and Call structure of Lua ** Stack and Call structure of Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -445,6 +445,7 @@ struct SParser { /* data to `f_parser' */
}; };
static void f_parser (lua_State *L, void *ud) { static void f_parser (lua_State *L, void *ud) {
int i;
Proto *tf; Proto *tf;
Closure *cl; Closure *cl;
struct SParser *p = cast(struct SParser *, ud); struct SParser *p = cast(struct SParser *, ud);
@ -452,8 +453,10 @@ static void f_parser (lua_State *L, void *ud) {
luaC_checkGC(L); luaC_checkGC(L);
tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z, tf = ((c == LUA_SIGNATURE[0]) ? luaU_undump : luaY_parser)(L, p->z,
&p->buff, p->name); &p->buff, p->name);
cl = luaF_newLclosure(L, 0, gt(L)); cl = luaF_newLclosure(L, tf->nups, gt(L));
cl->l.p = tf; cl->l.p = tf;
for (i = 0; i < tf->nups; i++) /* initialize eventual upvalues */
cl->l.upvals[i] = luaF_newupval(L);
setclvalue(L->top, cl); setclvalue(L->top, cl);
incr_top(L); incr_top(L);
} }

11
lfunc.c
View File

@ -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 ** Auxiliary functions to manipulate prototypes and closures
** See Copyright Notice in lua.h ** 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) { UpVal *luaF_findupval (lua_State *L, StkId level) {
GCObject **pp = &L->openupval; GCObject **pp = &L->openupval;
UpVal *p; UpVal *p;

3
lfunc.h
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lfunc.h,v 1.20 2002/06/20 20:41:46 roberto Exp roberto $ ** $Id: lfunc.h,v 1.21 2003/03/18 12:50:04 roberto Exp roberto $
** Auxiliary functions to manipulate prototypes and closures ** Auxiliary functions to manipulate prototypes and closures
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -14,6 +14,7 @@
Proto *luaF_newproto (lua_State *L); Proto *luaF_newproto (lua_State *L);
Closure *luaF_newCclosure (lua_State *L, int nelems); Closure *luaF_newCclosure (lua_State *L, int nelems);
Closure *luaF_newLclosure (lua_State *L, int nelems, TObject *e); Closure *luaF_newLclosure (lua_State *L, int nelems, TObject *e);
UpVal *luaF_newupval (lua_State *L);
UpVal *luaF_findupval (lua_State *L, StkId level); UpVal *luaF_findupval (lua_State *L, StkId level);
void luaF_close (lua_State *L, StkId level); void luaF_close (lua_State *L, StkId level);
void luaF_freeproto (lua_State *L, Proto *f); void luaF_freeproto (lua_State *L, Proto *f);