commit a38f093f0540bce0207bb2dc27f1779f41c6d48b
parent b6adfdd01be0e436e9627a1d712ff8e0d53a244d
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Thu, 19 Jun 1997 14:45:52 -0300
luaI_initTFunc initializes fileName.
Diffstat:
3 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/func.c b/func.c
@@ -5,6 +5,7 @@
#include "luamem.h"
#include "func.h"
#include "opcode.h"
+#include "inout.h"
static TFunc *function_root = NULL;
@@ -23,7 +24,7 @@ void luaI_initTFunc (TFunc *f)
f->size = 0;
f->code = NULL;
f->lineDefined = 0;
- f->fileName = NULL;
+ f->fileName = lua_parsedfile;
f->locvars = NULL;
}
diff --git a/lua.stx b/lua.stx
@@ -1,6 +1,6 @@
%{
-char *rcs_luastx = "$Id: lua.stx,v 3.45 1997/03/06 17:30:55 roberto Exp roberto $";
+char *rcs_luastx = "$Id: lua.stx,v 3.46 1997/03/31 14:19:01 roberto Exp roberto $";
#include <stdio.h>
#include <stdlib.h>
@@ -489,7 +489,6 @@ body : '(' parlist ')' block END
luaI_initTFunc($$);
$$->size = pc;
$$->code = newvector(pc, Byte);
- $$->fileName = lua_parsedfile;
$$->lineDefined = $2;
memcpy($$->code, basepc, pc*sizeof(Byte));
if (lua_debug)
diff --git a/opcode.c b/opcode.c
@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio
*/
-char *rcs_opcode="$Id: opcode.c,v 4.10 1997/06/16 18:42:32 roberto Exp roberto $";
+char *rcs_opcode="$Id: opcode.c,v 4.11 1997/06/16 19:48:18 roberto Exp roberto $";
#include <setjmp.h>
#include <stdio.h>
@@ -604,7 +604,6 @@ int lua_domain (void)
jmp_buf *oldErr = errorJmp;
errorJmp = &myErrorJmp;
luaI_initTFunc(&tf);
- tf.fileName = lua_parsedfile;
if (setjmp(myErrorJmp) == 0) {
lua_parse(&tf);
status = 0;