nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

last changes by lhf

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2003-04-10 14:39:41 -03:00
parent de57dc2653
commit 762c737037
3 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lundump.c
View File

@@ -1,5 +1,5 @@
/*
** $Id: lundump.c,v 1.59 2003/01/27 15:52:57 roberto Exp roberto $
** $Id: lundump.c,v 1.49 2003/04/07 20:34:20 lhf Exp $
** load pre-compiled Lua chunks
** See Copyright Notice in lua.h
*/
@@ -104,7 +104,7 @@ static TString* LoadString (LoadState* S)
{
char* s=luaZ_openspace(S->L,S->b,size);
ezread(S,s,size);
return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */
return luaS_newlstr(S->L,s,size-1); /* remove trailing '\0' */
}
}
@@ -146,7 +146,7 @@ static void LoadUpvalues (LoadState* S, Proto* f)
luaG_runerror(S->L,"bad nupvalues in %s: read %d; expected %d",
S->name,n,f->nups);
f->upvalues=luaM_newvector(S->L,n,TString*);
f->sizeupvalues = n;
f->sizeupvalues=n;
for (i=0; i<n; i++) f->upvalues[i]=LoadString(S);
}
@@ -226,14 +226,14 @@ static void TestSize (LoadState* S, int s, const char* what)
static void LoadHeader (LoadState* S)
{
int version;
lua_Number x=0,tx=TEST_NUMBER;
lua_Number x,tx=TEST_NUMBER;
LoadSignature(S);
version=LoadByte(S);
if (version>VERSION)
luaG_runerror(S->L,"%s too new: "
"read version %d.%d; expected at most %d.%d",
S->name,V(version),V(VERSION));
if (version<VERSION0) /* check last major change */
if (version<VERSION0) /* check last major change */
luaG_runerror(S->L,"%s too old: "
"read version %d.%d; expected at least %d.%d",
S->name,V(version),V(VERSION0));