| 6828 | |
| 6829 | |
| 6830 | TString *luaX_newstring (LexState *ls, const char *str, size_t l) { |
| 6831 | lua_State *L = ls->L; |
| 6832 | TString *ts = luaS_newlstr(L, str, l); |
| 6833 | TValue *o = luaH_setstr(L, ls->fs->h, ts); /* entry for `str' */ |
| 6834 | if (ttisnil(o)) |
| 6835 | setbvalue(o, 1); /* make sure `str' will not be collected */ |
| 6836 | return ts; |
| 6837 | } |
| 6838 | |
| 6839 | |
| 6840 | static void inclinenumber (LexState *ls) { |
no test coverage detected