diff options
Diffstat (limited to 'apps/plugins/lua/llex.c')
-rw-r--r-- | apps/plugins/lua/llex.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/apps/plugins/lua/llex.c b/apps/plugins/lua/llex.c index 85ac516be3..6f78d48983 100644 --- a/apps/plugins/lua/llex.c +++ b/apps/plugins/lua/llex.c | |||
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: llex.c,v 2.20.1.1 2007/12/27 13:02:25 roberto Exp $ | 2 | ** $Id: llex.c,v 2.20.1.2 2009/11/23 14:58:22 roberto Exp $ |
3 | ** Lexical Analyzer | 3 | ** Lexical Analyzer |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -118,8 +118,10 @@ TString *luaX_newstring (LexState *ls, const char *str, size_t l) { | |||
118 | lua_State *L = ls->L; | 118 | lua_State *L = ls->L; |
119 | TString *ts = luaS_newlstr(L, str, l); | 119 | TString *ts = luaS_newlstr(L, str, l); |
120 | TValue *o = luaH_setstr(L, ls->fs->h, ts); /* entry for `str' */ | 120 | TValue *o = luaH_setstr(L, ls->fs->h, ts); /* entry for `str' */ |
121 | if (ttisnil(o)) | 121 | if (ttisnil(o)) { |
122 | setbvalue(o, 1); /* make sure `str' will not be collected */ | 122 | setbvalue(o, 1); /* make sure `str' will not be collected */ |
123 | luaC_checkGC(L); | ||
124 | } | ||
123 | return ts; | 125 | return ts; |
124 | } | 126 | } |
125 | 127 | ||