lua

commit 07008b5d45da78180c1a0513d63367b7bc228bf4
parent 8f31eda6495763f9e3de77747ef0b3c74e891b10
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Thu, 25 Jun 1998 13:48:23 -0300

details (by lhf)

Diffstat:
M
lundump.c
 | 
36
+++++++++++-------------------------
M
lundump.h
 | 
30
+++++++++++++++++++++++++++---

2 files changed, 38 insertions(+), 28 deletions(-)
diff --git a/lundump.c b/lundump.c
@@ -1,11 +1,10 @@
 /*
-** $Id: lundump.c,v 1.9 1998/06/13 16:54:15 lhf Exp $
+** $Id: lundump.c,v 1.10 1998/06/25 15:50:09 lhf Exp $
 ** load bytecodes from files
 ** See Copyright Notice in lua.h
 */
 
 #include <stdio.h>
-
 #include "lauxlib.h"
 #include "lfunc.h"
 #include "lmem.h"
@@ -13,21 +12,12 @@
 #include "lundump.h"
 
 #define	LoadBlock(b,size,Z)	ezread(Z,b,size)
-#define	LoadNative(t,D)		LoadBlock(&t,sizeof(t),D)
-
-/* LUA_NUMBER */
-/* see comment in lundump.h */
+#define	LoadNative(t,Z)		LoadBlock(&t,sizeof(t),Z)
 
-#if ID_NUMBER==ID_REAL4
-	#define	LoadNumber	LoadFloat
-#elif ID_NUMBER==ID_REAL8
-	#define	LoadNumber	LoadDouble
-#elif ID_NUMBER==ID_INT4
-	#define	LoadNumber	LoadLong
-#elif ID_NUMBER==ID_NATIVE
-	#define	LoadNumber	LoadNative
+#if ID_NUMBER==ID_NATIVE
+	#define doLoadNumber(f,Z)	LoadNative(f,Z)
 #else
-	#define	LoadNumber	LoadWhat
+	#define doLoadNumber(f,Z)	f=LoadNumber(Z)
 #endif
 
 static void unexpectedEOZ(ZIO* Z)
@@ -150,11 +140,7 @@ static void LoadConstants(TProtoFunc* tf, ZIO* Z)
   {
    case ID_NUM:
 	ttype(o)=LUA_T_NUMBER;
-#if ID_NUMBER==ID_NATIVE
-	LoadNative(nvalue(o),Z)
-#else
-	nvalue(o)=LoadNumber(Z);
-#endif
+	doLoadNumber(nvalue(o),Z);
 	break;
    case ID_STR:
 	ttype(o)=LUA_T_STRING;	
@@ -200,19 +186,19 @@ static void LoadHeader(ZIO* Z)
   luaL_verror(
 	"%s too new: version=0x%02x; expected at most 0x%02x",
 	zname(Z),version,VERSION);
- if (version<0x31)			/* major change in 3.1 */
+ if (version<VERSION0)			/* check last major change */
   luaL_verror(
 	"%s too old: version=0x%02x; expected at least 0x%02x",
-	zname(Z),version,0x31);
+	zname(Z),version,VERSION0);
  id=ezgetc(Z);				/* test number representation */
  sizeofR=ezgetc(Z);
  if (id!=ID_NUMBER || sizeofR!=sizeof(real))
  {
-  luaL_verror("unknown number representation in %s: "
-	"read 0x%02x %d; expected 0x%02x %d",
+  luaL_verror("unknown number signature in %s: "
+	"read 0x%02x%02x; expected 0x%02x%02x",
 	zname(Z),id,sizeofR,ID_NUMBER,sizeof(real));
  }
- f=LoadNumber(Z);
+ doLoadNumber(f,Z);
  if (f!=tf)
   luaL_verror("unknown number representation in %s: "
 	"read " NUMBER_FMT "; expected " NUMBER_FMT "",	/* LUA_NUMBER */
diff --git a/lundump.h b/lundump.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lundump.h,v 1.6 1998/06/13 16:54:15 lhf Exp $
+** $Id: lundump.h,v 1.7 1998/06/25 15:50:09 lhf Exp $
 ** load pre-compiled Lua chunks
 ** See Copyright Notice in lua.h
 */
@@ -14,6 +14,7 @@ TProtoFunc* luaU_undump1(ZIO* Z);	/* load one chunk */
 
 #define	SIGNATURE	"Lua"
 #define	VERSION		0x31		/* last format change was in 3.1 */
+#define	VERSION0	0x31		/* last major  change was in 3.1 */
 
 #define IsMain(f)	(f->lineDefined==0)
 
@@ -46,12 +47,35 @@ TProtoFunc* luaU_undump1(ZIO* Z);	/* load one chunk */
 * dump and undump routines.
 */
 
-#define	ID_NUMBER	ID_REAL8
+#ifndef ID_NUMBER
+#define	ID_NUMBER	ID_NATIVE
+#endif
 
 #if 0
-#define	ID_NUMBER	ID_REAL4
 #define	ID_NUMBER	ID_INT4
+#define	ID_NUMBER	ID_REAL4
+#define	ID_NUMBER	ID_REAL8
 #define	ID_NUMBER	ID_NATIVE
 #endif
 
 #endif
+
+#if   ID_NUMBER==ID_REAL4
+	#define	DumpNumber	DumpFloat
+	#define	LoadNumber	LoadFloat
+	#define SIZEOF_NUMBER	4
+#elif ID_NUMBER==ID_REAL8
+	#define	DumpNumber	DumpDouble
+	#define	LoadNumber	LoadDouble
+	#define SIZEOF_NUMBER	8
+#elif ID_NUMBER==ID_INT4
+	#define	DumpNumber	DumpLong
+	#define	LoadNumber	LoadLong
+	#define SIZEOF_NUMBER	4
+#elif ID_NUMBER==ID_NATIVE
+	#define	DumpNumber	DumpNative
+	#define	LoadNumber	LoadNative
+	#define SIZEOF_NUMBER	sizeof(real)
+#else
+	#error	bad ID_NUMBER
+#endif