From eee51492e26bc295d2b67b91aa7bdb97a21e3623 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 26 Apr 2013 15:48:35 -0300
Subject: dumping and undumping integers

---
 ldump.c | 20 ++++++++++++++------
 1 file changed, 14 insertions(+), 6 deletions(-)

(limited to 'ldump.c')

diff --git a/ldump.c b/ldump.c
index 6864a3fa..b7606d29 100644
--- a/ldump.c
+++ b/ldump.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldump.c,v 2.17 2012/01/23 23:02:10 roberto Exp roberto $
+** $Id: ldump.c,v 2.18 2013/04/12 19:07:09 roberto Exp roberto $
 ** 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(ttnov(o),D);
-  switch (ttnov(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);
-- 
cgit v1.2.3-55-g6feb