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

`newtype' returns old tag when given an old name

This commit is contained in:
Roberto Ierusalimschy 2001-07-23 16:56:00 -03:00
parent 45b173cbf8
commit 767abdfdc0
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ltm.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltm.c,v 1.73 2001/06/15 20:36:57 roberto Exp roberto $ ** $Id: ltm.c,v 1.74 2001/07/12 18:11:58 roberto Exp roberto $
** Tag methods ** Tag methods
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -82,17 +82,15 @@ void luaT_init (lua_State *L) {
int luaT_newtag (lua_State *L, const l_char *name, int basictype) { int luaT_newtag (lua_State *L, const l_char *name, int basictype) {
int tag; int tag;
int i; int i;
TString *ts; TString *ts = NULL;
luaM_growvector(L, G(L)->TMtable, G(L)->ntag, G(L)->sizeTM, struct TM, luaM_growvector(L, G(L)->TMtable, G(L)->ntag, G(L)->sizeTM, struct TM,
MAX_INT, l_s("tag table overflow")); MAX_INT, l_s("tag table overflow"));
tag = G(L)->ntag; tag = G(L)->ntag;
if (name == NULL) if (name) {
ts = NULL;
else {
TObject *v; TObject *v;
ts = luaS_new(L, name); ts = luaS_new(L, name);
v = luaH_setstr(L, G(L)->type2tag, ts); v = luaH_setstr(L, G(L)->type2tag, ts);
if (ttype(v) != LUA_TNIL) return LUA_TNONE; /* invalid name */ if (ttype(v) == LUA_TNUMBER) return (int)nvalue(v);
setnvalue(v, tag); setnvalue(v, tag);
} }
for (i=0; i<TM_N; i++) for (i=0; i<TM_N; i++)