rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

luaI_initTFunc initializes fileName.

This commit is contained in:
Roberto Ierusalimschy 1997-06-19 14:46:12 -03:00
parent b6adfdd01b
commit a38f093f05
3 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
func.c
View File

@ -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;
}

3
lua.stx
View File

@ -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)

3
opcode.c
View File

@ -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;