lua

commit e33a3b8e0dced86ecae6d7d6e337984c38eb8a33
parent 9a6cccb08c4701755787bfface1933cf052fd59a
Author: Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br>
Date:   Wed,  6 Mar 1996 18:39:50 -0300

now loads size as two words

Diffstat:
M
undump.c
 | 
17
+++++++++++++----

1 file changed, 13 insertions(+), 4 deletions(-)
diff --git a/undump.c b/undump.c
@@ -3,7 +3,7 @@
 ** load bytecodes from files
 */
 
-char* rcs_undump="$Id: undump.c,v 1.8 1996/03/06 01:41:18 lhf Exp lhf $";
+char* rcs_undump="$Id: undump.c,v 1.9 1996/03/06 16:01:08 lhf Exp lhf $";
 
 #include <stdio.h>
 #include <string.h>
@@ -43,7 +43,7 @@ static int LoadWord(FILE* D)
  fread(&w,sizeof(w),1,D);
  if (swapword)
  {
-  Byte* p=&w;
+  Byte* p=&w;					/* TODO: need union? */
   Byte t;
   t=p[0]; p[0]=p[1]; p[1]=t;
  }
@@ -57,6 +57,15 @@ static char* LoadBlock(int size, FILE* D)
  return b;
 }
 
+static int LoadSize(FILE* D)
+{
+ Word hi=LoadWord(D);
+ Word lo=LoadWord(D);
+ int s=(hi<<16)|lo;
+ if ((Word)s != s) panic("code too long");
+ return s;
+}
+
 static char* LoadString(FILE* D)
 {
  return LoadBlock(LoadWord(D),D);
@@ -70,7 +79,7 @@ static void LoadFunction(FILE* D)
  TFunc* tf=new(TFunc);
  tf->next=NULL;
  tf->locvars=NULL;
- tf->size=LoadWord(D);				/* TODO: Long? */
+ tf->size=LoadSize(D);
  tf->lineDefined=LoadWord(D);
  if (IsMain(tf))				/* new main */
  {
@@ -141,7 +150,7 @@ static void LoadHeader(FILE* D)			/* TODO: error handling */
  fread(&f,sizeof(f),1,D);		/* a float for testing byte ordering */
  if (f!=tf)
  {
-  swapfloat=1;
+  swapfloat=1;					/* TODO: only one test? */
   if (f!=tf) warn("different float representation");
  }
 }