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

local variable stack needs only the name of the variable (TreeNode); 

this way is simpler and faster than old way.
This commit is contained in:
Roberto Ierusalimschy 1996-01-23 15:50:29 -02:00
parent 24ccc7c038
commit 2998049f51
1 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lua.stx
View File

@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 3.25 1995/10/26 17:02:50 roberto Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 3.26 1996/01/22 18:39:37 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@ -44,7 +44,7 @@ static Long varbuffer[MAXVAR]; /* variables in an assignment list;
static int nvarbuffer=0; /* number of variables at a list */ static int nvarbuffer=0; /* number of variables at a list */
#define MAXLOCALS 32 #define MAXLOCALS 32
static Word localvar[MAXLOCALS]; /* store local variable names */ static TreeNode *localvar[MAXLOCALS]; /* store local variable names */
static int nlocalvar=0; /* number of local variables */ static int nlocalvar=0; /* number of local variables */
#define MAXFIELDS FIELDS_PER_FLUSH*2 #define MAXFIELDS FIELDS_PER_FLUSH*2
@ -146,7 +146,7 @@ static void flush_list (int m, int n)
code_byte(n); code_byte(n);
} }
static void add_localvar (Word name) static void add_localvar (TreeNode *name)
{ {
if (nlocalvar < MAXLOCALS) if (nlocalvar < MAXLOCALS)
localvar[nlocalvar++] = name; localvar[nlocalvar++] = name;
@ -154,7 +154,7 @@ static void add_localvar (Word name)
lua_error ("too many local variables"); lua_error ("too many local variables");
} }
static void store_localvar (Word name, int n) static void store_localvar (TreeNode *name, int n)
{ {
if (nlocalvar+n < MAXLOCALS) if (nlocalvar+n < MAXLOCALS)
localvar[nlocalvar+n] = name; localvar[nlocalvar+n] = name;
@ -197,7 +197,7 @@ static void code_number (float f)
/* /*
** Search a local name and if find return its index. If do not find return -1 ** Search a local name and if find return its index. If do not find return -1
*/ */
static int lua_localname (Word n) static int lua_localname (TreeNode *n)
{ {
int i; int i;
for (i=nlocalvar-1; i >= 0; i--) for (i=nlocalvar-1; i >= 0; i--)
@ -481,7 +481,7 @@ funcname : var { $$ =$1; init_func(); }
code_word(luaI_findconstant($3)); code_word(luaI_findconstant($3));
$$ = 0; /* indexed variable */ $$ = 0; /* indexed variable */
init_func(); init_func();
add_localvar(luaI_findsymbolbyname("self")); add_localvar(lua_constcreate("self"));
} }
; ;
@ -672,14 +672,8 @@ parlist : /* empty */ { lua_codeadjust(0); $$ = lua_linenumber; }
| parlist1 { lua_codeadjust(0); $$ = lua_linenumber; } | parlist1 { lua_codeadjust(0); $$ = lua_linenumber; }
; ;
parlist1 : NAME parlist1 : NAME { add_localvar($1); }
{ | parlist1 ',' NAME { add_localvar($3); }
add_localvar(luaI_findsymbol($1));
}
| parlist1 ',' NAME
{
add_localvar(luaI_findsymbol($3));
}
; ;
fieldlist : lfieldlist fieldlist : lfieldlist
@ -759,10 +753,9 @@ var : singlevar { $$ = $1; }
singlevar : NAME singlevar : NAME
{ {
Word s = luaI_findsymbol($1); int local = lua_localname($1);
int local = lua_localname (s);
if (local == -1) /* global var */ if (local == -1) /* global var */
$$ = s + 1; /* return positive value */ $$ = luaI_findsymbol($1)+1; /* return positive value */
else else
$$ = -(local+1); /* return negative value */ $$ = -(local+1); /* return negative value */
} }
@ -771,10 +764,10 @@ singlevar : NAME
varexp : var { lua_pushvar($1); } varexp : var { lua_pushvar($1); }
; ;
localdeclist : NAME {store_localvar(luaI_findsymbol($1), 0); $$ = 1;} localdeclist : NAME {store_localvar($1, 0); $$ = 1;}
| localdeclist ',' NAME | localdeclist ',' NAME
{ {
store_localvar(luaI_findsymbol($3), $1); store_localvar($3, $1);
$$ = $1+1; $$ = $1+1;
} }
; ;