aboutsummaryrefslogtreecommitdiff
path: root/ldump.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldump.c')
-rw-r--r--ldump.c36
1 files changed, 18 insertions, 18 deletions
diff --git a/ldump.c b/ldump.c
index 4408ec01..fcdd0acc 100644
--- a/ldump.c
+++ b/ldump.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: ldump.c,v 2.20 2014/02/27 16:56:20 roberto Exp roberto $ 2** $Id: ldump.c,v 2.21 2014/02/27 18:56:15 roberto Exp roberto $
3** save precompiled Lua chunks 3** save precompiled Lua chunks
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -36,9 +36,9 @@ static void DumpBlock(const void* b, size_t size, DumpState* D)
36 } 36 }
37} 37}
38 38
39static void DumpChar(int y, DumpState* D) 39static void DumpByte(int y, DumpState* D)
40{ 40{
41 char x=(char)y; 41 lu_byte x=(lu_byte)y;
42 DumpVar(x,D); 42 DumpVar(x,D);
43} 43}
44 44
@@ -89,13 +89,13 @@ static void DumpConstants(const Proto* f, DumpState* D)
89 for (i=0; i<n; i++) 89 for (i=0; i<n; i++)
90 { 90 {
91 const TValue* o=&f->k[i]; 91 const TValue* o=&f->k[i];
92 DumpChar(ttype(o),D); 92 DumpByte(ttype(o),D);
93 switch (ttype(o)) 93 switch (ttype(o))
94 { 94 {
95 case LUA_TNIL: 95 case LUA_TNIL:
96 break; 96 break;
97 case LUA_TBOOLEAN: 97 case LUA_TBOOLEAN:
98 DumpChar(bvalue(o),D); 98 DumpByte(bvalue(o),D);
99 break; 99 break;
100 case LUA_TNUMFLT: 100 case LUA_TNUMFLT:
101 DumpNumber(fltvalue(o),D); 101 DumpNumber(fltvalue(o),D);
@@ -120,8 +120,8 @@ static void DumpUpvalues(const Proto* f, DumpState* D)
120 DumpInt(n,D); 120 DumpInt(n,D);
121 for (i=0; i<n; i++) 121 for (i=0; i<n; i++)
122 { 122 {
123 DumpChar(f->upvalues[i].instack,D); 123 DumpByte(f->upvalues[i].instack,D);
124 DumpChar(f->upvalues[i].idx,D); 124 DumpByte(f->upvalues[i].idx,D);
125 } 125 }
126} 126}
127 127
@@ -148,9 +148,9 @@ static void DumpFunction(const Proto* f, DumpState* D)
148{ 148{
149 DumpInt(f->linedefined,D); 149 DumpInt(f->linedefined,D);
150 DumpInt(f->lastlinedefined,D); 150 DumpInt(f->lastlinedefined,D);
151 DumpChar(f->numparams,D); 151 DumpByte(f->numparams,D);
152 DumpChar(f->is_vararg,D); 152 DumpByte(f->is_vararg,D);
153 DumpChar(f->maxstacksize,D); 153 DumpByte(f->maxstacksize,D);
154 DumpCode(f,D); 154 DumpCode(f,D);
155 DumpConstants(f,D); 155 DumpConstants(f,D);
156 DumpUpvalues(f,D); 156 DumpUpvalues(f,D);
@@ -161,13 +161,13 @@ static void DumpHeader(DumpState* D)
161{ 161{
162 DumpBlock(LUA_SIGNATURE,sizeof(LUA_SIGNATURE),D); 162 DumpBlock(LUA_SIGNATURE,sizeof(LUA_SIGNATURE),D);
163 DumpBlock(LUAC_DATA,sizeof(LUAC_DATA),D); 163 DumpBlock(LUAC_DATA,sizeof(LUAC_DATA),D);
164 DumpChar(LUAC_VERSION,D); 164 DumpByte(LUAC_VERSION,D);
165 DumpChar(LUAC_FORMAT,D); 165 DumpByte(LUAC_FORMAT,D);
166 DumpChar(sizeof(int),D); 166 DumpByte(sizeof(int),D);
167 DumpChar(sizeof(size_t),D); 167 DumpByte(sizeof(size_t),D);
168 DumpChar(sizeof(Instruction),D); 168 DumpByte(sizeof(Instruction),D);
169 DumpChar(sizeof(lua_Integer),D); 169 DumpByte(sizeof(lua_Integer),D);
170 DumpChar(sizeof(lua_Number),D); 170 DumpByte(sizeof(lua_Number),D);
171 DumpInteger(LUAC_INT,D); 171 DumpInteger(LUAC_INT,D);
172 DumpNumber(LUAC_NUM,D); 172 DumpNumber(LUAC_NUM,D);
173} 173}
@@ -184,7 +184,7 @@ int luaU_dump (lua_State* L, const Proto* f, lua_Writer w, void* data, int strip
184 D.strip=strip; 184 D.strip=strip;
185 D.status=0; 185 D.status=0;
186 DumpHeader(&D); 186 DumpHeader(&D);
187 DumpChar(f->sizeupvalues,&D); 187 DumpByte(f->sizeupvalues,&D);
188 DumpFunction(f,&D); 188 DumpFunction(f,&D);
189 return D.status; 189 return D.status;
190} 190}