commit 5eff5d3eac37a7596550a881d1db470fef0c1648
parent 8ad8426c43ff848682cb26269bdf80c21c372483
Author: Luiz Henrique de Figueiredo <lhf@tecgraf.puc-rio.br>
Date: Mon, 11 Mar 1996 19:01:26 -0300
moved some includes from undump.h
LoadString now uses luaI_buffer
added LoadNewString
needs tf->marked=0
luaI_undump now returns int and aborts if luaI_dorun fails
Diffstat:
M | undump.c | | | 60 | ++++++++++++++++++++++++++++++------------------------------ |
1 file changed, 30 insertions(+), 30 deletions(-)
diff --git a/undump.c b/undump.c
@@ -3,10 +3,13 @@
** load bytecodes from files
*/
-char* rcs_undump="$Id: undump.c,v 1.10 1996/03/06 21:40:10 lhf Exp lhf $";
+char* rcs_undump="$Id: undump.c,v 1.11 1996/03/08 21:44:12 lhf Exp lhf $";
#include <stdio.h>
#include <string.h>
+#include "opcode.h"
+#include "mem.h"
+#include "table.h"
#include "undump.h"
static int swapword=0;
@@ -16,7 +19,9 @@ static TFunc* lastF=NULL;
static void warn(char* s) /* TODO: remove */
{
+#if 0
fprintf(stderr,"undump: %s\n",s);
+#endif
}
static void FixCode(Byte* code, Byte* end) /* swap words */
@@ -160,13 +165,6 @@ static int LoadWord(FILE* D)
return w;
}
-static char* LoadBlock(int size, FILE* D)
-{
- char* b=luaI_malloc(size);
- fread(b,size,1,D);
- return b;
-}
-
static int LoadSize(FILE* D)
{
Word hi=LoadWord(D);
@@ -176,8 +174,23 @@ static int LoadSize(FILE* D)
return s;
}
+static char* LoadBlock(int size, FILE* D)
+{
+ char* b=luaI_malloc(size);
+ fread(b,size,1,D);
+ return b;
+}
+
static char* LoadString(FILE* D)
{
+ int size=LoadWord(D);
+ char *b=luaI_buffer(size);
+ fread(b,size,1,D);
+ return b;
+}
+
+static char* LoadNewString(FILE* D)
+{
return LoadBlock(LoadWord(D),D);
}
@@ -190,7 +203,7 @@ static void LoadFunction(FILE* D)
tf->lineDefined=LoadWord(D);
if (IsMain(tf)) /* new main */
{
- tf->fileName=LoadString(D);
+ tf->fileName=LoadNewString(D);
Main=lastF=tf;
}
else /* fix PUSHFUNCTION */
@@ -204,9 +217,7 @@ static void LoadFunction(FILE* D)
*p++=c.m.c1; *p++=c.m.c2; *p++=c.m.c3; *p++=c.m.c4;
lastF=lastF->next=tf;
}
-#if 0
- tf->marked=0; /* TODO: is this ok? */
-#endif
+ tf->marked=0;
tf->code=LoadBlock(tf->size,D);
if (swapword || swapfloat) FixCode(tf->code,tf->code+tf->size);
while (1) /* unthread */
@@ -216,14 +227,14 @@ static void LoadFunction(FILE* D)
{
int i=LoadWord(D);
char* s=LoadString(D);
- int v=luaI_findsymbolbyname(s); /* TODO: free s? */
+ int v=luaI_findsymbolbyname(s);
Unthread(tf->code,i,v);
}
else if (c==ID_STR) /* constant string */
{
int i=LoadWord(D);
char* s=LoadString(D);
- int v=luaI_findconstantbyname(s); /* TODO: free s? */
+ int v=luaI_findconstantbyname(s);
Unthread(tf->code,i,v);
}
else
@@ -303,25 +314,14 @@ TFunc* luaI_undump1(FILE* D)
/*
** load and run all chunks in a file
*/
-void luaI_undump(FILE* D)
+int luaI_undump(FILE* D)
{
TFunc* m;
while ((m=luaI_undump1(D)))
{
-#if 0
- luaI_dorun(m);
- luaI_freefunc(m); /* TODO: free others? */
-#endif
+ int status=luaI_dorun(m);
+ luaI_freefunc(m);
+ if (status!=0) return status;
}
-}
-
-char* luaI_buffer(int n)
-{
- static int size=0;
- static char* buffer=NULL;
- if (buffer==NULL)
- buffer=luaI_malloc(n);
- else if (n>size)
- buffer=luaI_realloc(buffer,size=n);
- return buffer;
+ return 0;
}