52   TString *ts;  in newlstr()  local
56   ts = cast(TString *, luaM_malloc(L, (l+1)*sizeof(char)+sizeof(TString)));  in newlstr()
57   ts->tsv.len = l;  in newlstr()
58   ts->tsv.hash = h;  in newlstr()
59   ts->tsv.marked = luaC_white(G(L));  in newlstr()
60   ts->tsv.tt = LUA_TSTRING;  in newlstr()
61   ts->tsv.reserved = 0;  in newlstr()
62   memcpy(ts+1, str, l*sizeof(char));  in newlstr()
63   ((char *)(ts+1))[l] = '\0';  /* ending 0 */  in newlstr()
66   ts->tsv.next = tb->hash[h];  /* chain new entry */  in newlstr()
67   tb->hash[h] = obj2gco(ts);  in newlstr()
71   return ts;  in newlstr()
85     TString *ts = rawgco2ts(o);  in luaS_newlstr()  local
86     if (ts->tsv.len == l && (memcmp(str, getstr(ts), l) == 0)) {  in luaS_newlstr()
89       return ts;  in luaS_newlstr()