| 115 | |
| 116 | |
| 117 | TString *luaX_newstring (LexState *ls, const char *str, size_t l) { |
| 118 | lua_State *L = ls->L; |
| 119 | TString *ts = luaS_newlstr(L, str, l); |
| 120 | TValue *o = luaH_setstr(L, ls->fs->h, ts); /* entry for `str' */ |
| 121 | if (ttisnil(o)) { |
| 122 | setbvalue(o, 1); /* make sure `str' will not be collected */ |
| 123 | luaC_checkGC(L); |
| 124 | } |
| 125 | return ts; |
| 126 | } |
| 127 | |
| 128 | |
| 129 | static void inclinenumber (LexState *ls) { |
no test coverage detected