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

changes by lhf

This commit is contained in:
Roberto Ierusalimschy 2000-09-18 16:42:05 -03:00
parent 6ec4a0ef76
commit aab4fde468
2 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lundump.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lundump.c,v 1.28 2000/09/11 17:38:42 roberto Exp roberto $
** $Id: lundump.c,v 1.29 2000/06/28 14:12:55 lhf Exp lhf $
** load bytecodes from files
** See Copyright Notice in lua.h
*/
@ -43,7 +43,7 @@ static void ezread (lua_State* L, ZIO* Z, void* b, int n)
static void LoadReverse (lua_State* L, void* b, size_t size, ZIO* Z)
{
unsigned char *p=(unsigned char *) b+size;
char *p=(char *) b+size;
int n=size;
while (n--) *p--=ezgetc(L,Z);
}
@ -221,17 +221,14 @@ static Proto* LoadChunk (lua_State* L, ZIO* Z)
*/
Proto* luaU_undump (lua_State* L, ZIO* Z)
{
Proto* tf=NULL;
int c=zgetc(Z);
if (c==ID_CHUNK)
return LoadChunk(L,Z);
else if (c!=EOZ)
luaO_verror(L,"`%.255s' is not a precompiled Lua chunk",ZNAME(Z));
return NULL;
}
Proto* luaU_undump1 (lua_State* L, ZIO* Z)
{
return luaU_undump(L,Z);
tf=LoadChunk(L,Z);
c=zgetc(Z);
if (c!=EOZ)
luaO_verror(L,"`%.255s' apparently contains more than one chunk",ZNAME(Z));
return tf;
}
/*

2
lundump.h
View File

@ -12,7 +12,7 @@
/* load one chunk */
Proto* luaU_undump (lua_State* L, ZIO* Z);
Proto* luaU_undump1 (lua_State* L, ZIO* Z);
#define luaU_undump1 luaU_undump
/* find byte order */
int luaU_endianess (void);