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

comment

This commit is contained in:
Roberto Ierusalimschy 2000-06-19 15:04:41 -03:00
parent 88657809ac
commit 8d2baf719c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lvm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: lvm.c,v 1.114 2000/06/08 17:48:31 roberto Exp roberto $ ** $Id: lvm.c,v 1.115 2000/06/12 13:52:05 roberto Exp roberto $
** Lua virtual machine ** Lua virtual machine
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -180,8 +180,10 @@ void luaV_setglobal (lua_State *L, TString *s, StkId top) {
const TObject *oldvalue = luaH_getstr(L->gt, s); const TObject *oldvalue = luaH_getstr(L->gt, s);
const TObject *im = luaT_getimbyObj(L, oldvalue, IM_SETGLOBAL); const TObject *im = luaT_getimbyObj(L, oldvalue, IM_SETGLOBAL);
if (ttype(im) == TAG_NIL) { /* is there a tag method? */ if (ttype(im) == TAG_NIL) { /* is there a tag method? */
if (oldvalue != &luaO_nilobject) if (oldvalue != &luaO_nilobject) {
/* cast to remove `const' is OK, because `oldvalue' != luaO_nilobject */
*(TObject *)oldvalue = *(top-1); *(TObject *)oldvalue = *(top-1);
}
else { else {
TObject key; TObject key;
ttype(&key) = TAG_STRING; ttype(&key) = TAG_STRING;