From 81411e8913a5aabd0c58926c7a399e1a6de4fe90 Mon Sep 17 00:00:00 2001
From: Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br>
Date: Mon, 18 Nov 1996 09:18:29 -0200
Subject: [PATCH] headers includes sizeof(Word) not sizeof(int)

---
 undump.c | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/undump.c b/undump.c
index e32ec4e5..a3eb881f 100644
--- a/undump.c
+++ b/undump.c
@@ -3,7 +3,7 @@
 ** load bytecodes from files
 */
 
-char* rcs_undump="$Id: undump.c,v 1.19 1996/11/14 15:00:32 lhf Exp lhf $";
+char* rcs_undump="$Id: undump.c,v 1.20 1996/11/16 20:14:23 lhf Exp lhf $";
 
 #include <stdio.h>
 #include <string.h>
@@ -255,12 +255,15 @@ static void LoadHeader(FILE* D)			/* TODO: error handling */
  version=getc(D);
  if (version>0x23)				/* after 2.5 */
  {
-  int oldsizeofI=getc(D);
+  int oldsizeofW=getc(D);
   int oldsizeofF=getc(D);
   int oldsizeofP=getc(D);
-  if (oldsizeofF!=4) lua_error("sizeof(float)!=4. not an IEEE machine?");
+  if (oldsizeofW!=2)
+   lua_error("cannot load binary file created on machine with sizeof(Word)!=2");
+  if (oldsizeofF!=4)
+   lua_error("cannot load binary file created on machine with sizeof(float)!=4. not an IEEE machine?");
   if (oldsizeofP!=sizeof(TFunc*))		/* TODO: pack */
-   lua_error("different pointer sizes");
+   lua_error("cannot load binary file: different pointer sizes");
  }
  fread(&w,sizeof(w),1,D);			/* test word */
  if (w!=tw)