diff options
| author | Lua Team <team@lua.org> | 2013-07-06 12:00:00 +0000 |
|---|---|---|
| committer | repogen <> | 2013-07-06 12:00:00 +0000 |
| commit | 87cc247b6b22184fba47184c218a642ea7a49e96 (patch) | |
| tree | 299ba8b72b95aa32336b5c810b7133f8efc4fb29 /src/ldump.c | |
| parent | dc27609467d2699ac9252e89d632432ac5f798f2 (diff) | |
| download | lua-github-5.3.0-work1.tar.gz | |
Lua 5.3.0-work15.3.0-work1
Diffstat (limited to 'src/ldump.c')
| -rw-r--r-- | src/ldump.c | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/src/ldump.c b/src/ldump.c index d5e6a47c..b3a25624 100644 --- a/src/ldump.c +++ b/src/ldump.c @@ -1,5 +1,5 @@ /* -** $Id: ldump.c,v 2.17 2012/01/23 23:02:10 roberto Exp $ +** $Id: ldump.c,v 2.19 2013/04/26 18:48:35 roberto Exp $ ** save precompiled Lua chunks ** See Copyright Notice in lua.h */ @@ -52,6 +52,11 @@ static void DumpNumber(lua_Number x, DumpState* D) DumpVar(x,D); } +static void DumpInteger(lua_Integer x, DumpState* D) +{ + DumpVar(x,D); +} + static void DumpVector(const void* b, int n, size_t size, DumpState* D) { DumpInt(n,D); @@ -84,18 +89,21 @@ static void DumpConstants(const Proto* f, DumpState* D) for (i=0; i<n; i++) { const TValue* o=&f->k[i]; - DumpChar(ttypenv(o),D); - switch (ttypenv(o)) + DumpChar(ttype(o),D); + switch (ttype(o)) { case LUA_TNIL: break; case LUA_TBOOLEAN: DumpChar(bvalue(o),D); break; - case LUA_TNUMBER: - DumpNumber(nvalue(o),D); + case LUA_TNUMFLT: + DumpNumber(fltvalue(o),D); + break; + case LUA_TNUMINT: + DumpInteger(ivalue(o),D); break; - case LUA_TSTRING: + case LUA_TSHRSTR: case LUA_TLNGSTR: DumpString(rawtsvalue(o),D); break; default: lua_assert(0); |