last changes by lhf

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

View File

@@ -1,5 +1,5 @@
/* /*
** $Id: ldump.c,v 1.3 2003/01/27 15:52:57 roberto Exp roberto $ ** $Id: ldump.c,v 1.4 2003/02/11 23:52:12 lhf Exp $
** save bytecodes ** save bytecodes
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -167,3 +167,4 @@ void luaU_dump (lua_State* L, const Proto* Main, lua_Chunkwriter w, void* data)
DumpHeader(&D); DumpHeader(&D);
DumpFunction(Main,NULL,&D); DumpFunction(Main,NULL,&D);
} }

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 ** load pre-compiled Lua chunks
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -226,7 +226,7 @@ static void TestSize (LoadState* S, int s, const char* what)
static void LoadHeader (LoadState* S) static void LoadHeader (LoadState* S)
{ {
int version; int version;
lua_Number x=0,tx=TEST_NUMBER; lua_Number x,tx=TEST_NUMBER;
LoadSignature(S); LoadSignature(S);
version=LoadByte(S); version=LoadByte(S);
if (version>VERSION) if (version>VERSION)

View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lundump.h,v 1.28 2002/12/13 11:12:35 lhf Exp $ ** $Id: lundump.h,v 1.30 2003/04/07 20:34:20 lhf Exp $
** load pre-compiled Lua chunks ** load pre-compiled Lua chunks
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -23,12 +23,12 @@ void luaU_dump (lua_State* L, const Proto* Main, lua_Chunkwriter w, void* data);
void luaU_print (const Proto* Main); void luaU_print (const Proto* Main);
/* definitions for headers of binary files */ /* definitions for headers of binary files */
#define LUA_SIGNATURE "\033Lua" /* binary files start with <esc>Lua */ #define LUA_SIGNATURE "\033Lua" /* binary files start with "<esc>Lua" */
#define VERSION 0x50 /* last format change was in 5.0 */ #define VERSION 0x50 /* last format change was in 5.0 */
#define VERSION0 0x50 /* last major change was in 5.0 */ #define VERSION0 0x50 /* last major change was in 5.0 */
/* a multiple of PI for testing native format */ /* a multiple of PI for testing native format */
/* multiplying by 1E8 gives non-trivial integer values */ /* multiplying by 1E7 gives non-trivial integer values */
#define TEST_NUMBER 3.14159265358979323846E8 #define TEST_NUMBER ((lua_Number)3.14159265358979323846E7)
#endif #endif