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

no more protected global variables

This commit is contained in:
Roberto Ierusalimschy 1997-11-28 10:39:45 -02:00
parent 39fd5bb9b0
commit a6ad644bf2
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lbuiltin.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lbuiltin.c,v 1.11 1997/11/27 15:59:44 roberto Exp roberto $ ** $Id: lbuiltin.c,v 1.12 1997/11/27 18:25:14 roberto Exp roberto $
** Built-in functions ** Built-in functions
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -217,17 +217,10 @@ static void luaI_assert (void)
} }
static void check_globalname (char *n)
{
if (n[0] == '.')
luaL_verror("cannot change variable `%.50s' (starts with `.')", n);
}
static void setglobal (void) static void setglobal (void)
{ {
char *n = luaL_check_string(1); char *n = luaL_check_string(1);
lua_Object value = luaL_nonnullarg(2); lua_Object value = luaL_nonnullarg(2);
check_globalname(n);
lua_pushobject(value); lua_pushobject(value);
lua_setglobal(n); lua_setglobal(n);
lua_pushobject(value); /* return given value */ lua_pushobject(value); /* return given value */
@ -237,7 +230,6 @@ static void rawsetglobal (void)
{ {
char *n = luaL_check_string(1); char *n = luaL_check_string(1);
lua_Object value = luaL_nonnullarg(2); lua_Object value = luaL_nonnullarg(2);
check_globalname(n);
lua_pushobject(value); lua_pushobject(value);
lua_rawsetglobal(n); lua_rawsetglobal(n);
lua_pushobject(value); /* return given value */ lua_pushobject(value); /* return given value */