50 static TString *newlstr (lua_State *L, const char *str, size_t l,  in newlstr()  argument
54   if (l+1 > (MAX_SIZET - sizeof(TString))/sizeof(char))  in newlstr()
56   ts = cast(TString *, luaM_malloc(L, (l+1)*sizeof(char)+sizeof(TString)));  in newlstr()
57   ts->tsv.len = l;  in newlstr()
62   memcpy(ts+1, str, l*sizeof(char));  in newlstr()
63   ((char *)(ts+1))[l] = '\0';  /* ending 0 */  in newlstr()
75 TString *luaS_newlstr (lua_State *L, const char *str, size_t l) {  in luaS_newlstr()  argument
77   unsigned int h = cast(unsigned int, l);  /* seed */  in luaS_newlstr()
78   size_t step = (l>>5)+1;  /* if string is too long, don't hash all its chars */  in luaS_newlstr()
80   for (l1=l; l1>=step; l1-=step)  /* compute hash */  in luaS_newlstr()
86     if (ts->tsv.len == l && (memcmp(str, getstr(ts), l) == 0)) {  in luaS_newlstr()
92   return newlstr(L, str, l, h);  /* not found */  in luaS_newlstr()