Function luaH_setnum

other_src/lua/src/ltable.cpp:539–551

TValue *luaH_setnum (lua_State *L, Table *t, int key) {
  const TValue *p = luaH_getnum(t, key);
  if (p != luaO_nilobject) {
    check_readonlyold(L, t, cast(TValue *, p)); /*BZ*/
    return cast(TValue *, p);
  }
  else {
    TValue k;
    check_readonlynew(L, t); /*BZ*/
    setnvalue(&k, cast_num(key));
    return newkey(L, t, &k);
  }
}


TValue *luaH_setstr (lua_State *L, Table *t, TString *key) {