GitHub/lua
1
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2025-01-14 05:43:00 +08:00
Code Issues Projects Releases Wiki Activity

now loads size as two words

Browse Source
This commit is contained in:
Luiz Henrique de Figueiredo 1996-03-06 18:40:10 -03:00
parent 9a6cccb08c
commit e33a3b8e0d
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
undump.c
View File

@ -3,7 +3,7 @@
** load bytecodes from files ** 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 <stdio.h>
#include <string.h> #include <string.h>
@ -43,7 +43,7 @@ static int LoadWord(FILE* D)
fread(&w,sizeof(w),1,D); fread(&w,sizeof(w),1,D);
if (swapword) if (swapword)
{ {
Byte* p=&w; Byte* p=&w; /* TODO: need union? */
Byte t; Byte t;
t=p[0]; p[0]=p[1]; p[1]=t; t=p[0]; p[0]=p[1]; p[1]=t;
} }
@ -57,6 +57,15 @@ static char* LoadBlock(int size, FILE* D)
return b; 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) static char* LoadString(FILE* D)
{ {
return LoadBlock(LoadWord(D),D); return LoadBlock(LoadWord(D),D);
@ -70,7 +79,7 @@ static void LoadFunction(FILE* D)
TFunc* tf=new(TFunc); TFunc* tf=new(TFunc);
tf->next=NULL; tf->next=NULL;
tf->locvars=NULL; tf->locvars=NULL;
tf->size=LoadWord(D); /* TODO: Long? */ tf->size=LoadSize(D);
tf->lineDefined=LoadWord(D); tf->lineDefined=LoadWord(D);
if (IsMain(tf)) /* new main */ 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 */ fread(&f,sizeof(f),1,D); /* a float for testing byte ordering */
if (f!=tf) if (f!=tf)
{ {
swapfloat=1; swapfloat=1; /* TODO: only one test? */
if (f!=tf) warn("different float representation"); if (f!=tf) warn("different float representation");
} }
} }