51 unsigned int luaS_hashlongstr (TString *ts) {  in luaS_hashlongstr()  argument
52   lua_assert(ts->tt == LUA_VLNGSTR);  in luaS_hashlongstr()
53   if (ts->extra == 0) {  /* no hash? */  in luaS_hashlongstr()
54     size_t len = ts->u.lnglen;  in luaS_hashlongstr()
55     ts->hash = luaS_hash(getlngstr(ts), len, ts->hash);  in luaS_hashlongstr()
56     ts->extra = 1;  /* now it has its hash */  in luaS_hashlongstr()
58   return ts->hash;  in luaS_hashlongstr()
144   TString *ts;  in createstrobj()  local
149   ts = gco2ts(o);  in createstrobj()
150   ts->hash = h;  in createstrobj()
151   ts->extra = 0;  in createstrobj()
152   getstr(ts)[l] = '\0';  /* ending 0 */  in createstrobj()  local
153   return ts;  in createstrobj()
158   TString *ts = createstrobj(L, l, LUA_VLNGSTR, G(L)->seed);  in luaS_createlngstrobj()  local
159   ts->u.lnglen = l;  in luaS_createlngstrobj()
160   ts->shrlen = 0xFF;  /* signals that it is a long string */  in luaS_createlngstrobj()
161   return ts;  in luaS_createlngstrobj()
165 void luaS_remove (lua_State *L, TString *ts) {  in luaS_remove()  argument
167   TString **p = &tb->hash[lmod(ts->hash, tb->size)];  in luaS_remove()
168   while (*p != ts)  /* find previous element */  in luaS_remove()
190   TString *ts;  in internshrstr()  local
196   for (ts = *list; ts != NULL; ts = ts->u.hnext) {  in internshrstr()
197     if (l == ts->shrlen && (memcmp(str, getshrstr(ts), l * sizeof(char)) == 0)) {  in internshrstr()
199       if (isdead(g, ts))  /* dead (but not collected yet)? */  in internshrstr()
200         changewhite(ts);  /* resurrect it */  in internshrstr()
201       return ts;  in internshrstr()
209   ts = createstrobj(L, l, LUA_VSHRSTR, h);  in internshrstr()
210   ts->shrlen = cast_byte(l);  in internshrstr()
211   memcpy(getshrstr(ts), str, l * sizeof(char));  in internshrstr()
212   ts->u.hnext = *list;  in internshrstr()
213   *list = ts;  in internshrstr()
215   return ts;  in internshrstr()
226     TString *ts;  in luaS_newlstr()  local
229     ts = luaS_createlngstrobj(L, l);  in luaS_newlstr()
230     memcpy(getlngstr(ts), str, l * sizeof(char));  in luaS_newlstr()
231     return ts;  in luaS_newlstr()