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

source for all prototypes must be equal in a chunk; no need to store 

each one separated
This commit is contained in:
Roberto Ierusalimschy 2014-06-18 10:21:12 -03:00
parent e3871abe95
commit 94266dfdbd
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ldump.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ldump.c,v 2.28 2014/03/27 15:58:05 roberto Exp roberto $
** $Id: ldump.c,v 2.29 2014/04/01 14:39:55 roberto Exp roberto $
** save precompiled Lua chunks
** See Copyright Notice in lua.h
*/
@ -137,7 +137,6 @@ static void DumpUpvalues (const Proto *f, DumpState *D) {
static void DumpDebug (const Proto *f, DumpState *D) {
int i, n;
DumpString((D->strip) ? NULL : f->source, D);
n = (D->strip) ? 0 : f->sizelineinfo;
DumpInt(n, D);
DumpVector(f->lineinfo, n, D);
@ -196,6 +195,7 @@ int luaU_dump(lua_State *L, const Proto *f, lua_Writer w, void *data,
D.status = 0;
DumpHeader(&D);
DumpByte(f->sizeupvalues, &D);
DumpString((D.strip) ? NULL : f->source, &D);
DumpFunction(f, &D);
return D.status;
}

6
lundump.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lundump.c,v 2.36 2014/04/01 14:39:55 roberto Exp roberto $
** $Id: lundump.c,v 2.37 2014/04/29 18:14:16 roberto Exp roberto $
** load precompiled Lua chunks
** See Copyright Notice in lua.h
*/
@ -31,6 +31,7 @@ typedef struct {
ZIO *Z;
Mbuffer *b;
const char *name;
TString *source; /* source (the same for all prototypes) */
} LoadState;
@ -167,7 +168,7 @@ static void LoadUpvalues (LoadState *S, Proto *f) {
static void LoadDebug (LoadState *S, Proto *f) {
int i, n;
f->source = LoadString(S);
f->source = S->source;
n = LoadInt(S);
f->lineinfo = luaM_newvector(S->L, n, int);
f->sizelineinfo = n;
@ -258,6 +259,7 @@ Closure *luaU_undump(lua_State *L, ZIO *Z, Mbuffer *buff,
setclLvalue(L, L->top, cl);
incr_top(L);
cl->l.p = luaF_newproto(L);
S.source = cl->l.p->source = LoadString(&S); /* read source */
LoadFunction(&S, cl->l.p);
lua_assert(cl->l.nupvalues == cl->l.p->sizeupvalues);
luai_verifycode(L, buff, cl->l.p);