50 unsigned int luaS_hash (const char *str, size_t l, unsigned int seed) {  in luaS_hash()  argument
55     h = h ^ ((h<<5) + (h>>2) + cast_byte(str[l1 - 1]));  in luaS_hash()
97 static TString *createstrobj (lua_State *L, const char *str, size_t l,  in createstrobj()  argument
108   memcpy(sbuf, str, l*sizeof(char));  in createstrobj()
117 static TString *newshrstr (lua_State *L, const char *str, size_t l,  in newshrstr()  argument
125   s = createstrobj(L, str, l, LUA_TSHRSTR, h, list);  in newshrstr()
134 static TString *internshrstr (lua_State *L, const char *str, size_t l) {  in internshrstr()  argument
137   unsigned int h = luaS_hash(str, l, g->seed);  in internshrstr()
144         (memcmp(str, getstr(ts), l * sizeof(char)) == 0)) {  in internshrstr()
150   return newshrstr(L, str, l, h);  /* not found; create a new string */  in internshrstr()
157 TString *luaS_newlstr (lua_State *L, const char *str, size_t l) {  in luaS_newlstr()  argument
159     return internshrstr(L, str, l);  in luaS_newlstr()
163     return createstrobj(L, str, l, LUA_TLNGSTR, G(L)->seed, NULL);  in luaS_newlstr()
171 TString *luaS_new (lua_State *L, const char *str) {  in luaS_new()  argument
172   return luaS_newlstr(L, str, strlen(str));  in luaS_new()