Function calchash

other_src/lua/src/lstring.cpp:75–83

static lua_Hash calchash(const char *str, size_t l) {
  lua_Hash h = cast(unsigned int, l);  /* seed */
  size_t step = (l>>5)+1;  /* if string is too long, don't hash all its chars */
  size_t l1;
  for (l1=l; l1>=step; l1-=step) {  /* compute hash */
    h = h ^ ((h<<5)+(h>>2)+cast(unsigned char, str[l1-1]));
  }
  return h;
}


LUA_API lua_Hash lua_calchash(const char *str, size_t l) {