diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2023-05-16 16:53:29 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2023-05-16 16:53:29 -0300 |
commit | 819bd51d87b799fdee029754c660dc9a5587ef57 (patch) | |
tree | 0b1ffb9a3fd591372992c72a27e4590b48236b71 /llex.c | |
parent | f8d30826dda6ee8e99200de57a1997734b853db2 (diff) | |
download | lua-819bd51d87b799fdee029754c660dc9a5587ef57.tar.gz lua-819bd51d87b799fdee029754c660dc9a5587ef57.tar.bz2 lua-819bd51d87b799fdee029754c660dc9a5587ef57.zip |
Some cleaning in the new table API
Diffstat (limited to 'llex.c')
-rw-r--r-- | llex.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -134,13 +134,13 @@ l_noret luaX_syntaxerror (LexState *ls, const char *msg) { | |||
134 | TString *luaX_newstring (LexState *ls, const char *str, size_t l) { | 134 | TString *luaX_newstring (LexState *ls, const char *str, size_t l) { |
135 | lua_State *L = ls->L; | 135 | lua_State *L = ls->L; |
136 | TString *ts = luaS_newlstr(L, str, l); /* create new string */ | 136 | TString *ts = luaS_newlstr(L, str, l); /* create new string */ |
137 | const TValue *o = luaH_getstr(ls->h, ts); | 137 | TString *oldts = luaH_getstrkey(ls->h, ts); |
138 | if (!ttisnil(o)) /* string already present? */ | 138 | if (oldts != NULL) /* string already present? */ |
139 | ts = keystrval(nodefromval(o)); /* get saved copy */ | 139 | return oldts; /* use it */ |
140 | else { /* not in use yet */ | 140 | else { /* create a new entry */ |
141 | TValue *stv = s2v(L->top.p++); /* reserve stack space for string */ | 141 | TValue *stv = s2v(L->top.p++); /* reserve stack space for string */ |
142 | setsvalue(L, stv, ts); /* temporarily anchor the string */ | 142 | setsvalue(L, stv, ts); /* temporarily anchor the string */ |
143 | luaH_finishset(L, ls->h, stv, o, stv); /* t[string] = string */ | 143 | luaH_set(L, ls->h, stv, stv); /* t[string] = string */ |
144 | /* table is not a metatable, so it does not need to invalidate cache */ | 144 | /* table is not a metatable, so it does not need to invalidate cache */ |
145 | luaC_checkGC(L); | 145 | luaC_checkGC(L); |
146 | L->top.p--; /* remove string from stack */ | 146 | L->top.p--; /* remove string from stack */ |