lua

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:
M
func.c
 | 
3
++-
M
lua.stx
 | 
3
+--
M
opcode.c
 | 
3
+--

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;