Fix hash table chaining (again).

Thanks to Peter Cawley.

1 files changed, 4 insertions, 5 deletions

diff --git a/src/lj_tab.c b/src/lj_tab.c
index f2f3c0b0..2ff5eb0d 100644
--- a/src/lj_tab.c
+++ b/src/lj_tab.c
@@ -452,8 +452,7 @@ TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key)
       /* Rechain pseudo-resurrected string keys with colliding hashes. */
       while (nextnode(freenode)) {
         Node *nn = nextnode(freenode);
-        if (tvisstr(&nn->key) && !tvisnil(&nn->val) &&
-            hashstr(t, strV(&nn->key)) == n) {
+        if (!tvisnil(&nn->val) && hashkey(t, &nn->key) == n) {
           freenode->next = nn->next;
           nn->next = n->next;
           setmref(n->next, nn);
@@ -466,9 +465,9 @@ TValue *lj_tab_newkey(lua_State *L, GCtab *t, cTValue *key)
           ** any string key that's currently in a non-main positions.
           */
           while ((nn = nextnode(freenode))) {
-            if (tvisstr(&nn->key) && !tvisnil(&nn->val)) {
-              Node *mn = hashstr(t, strV(&nn->key));
-              if (mn != freenode) {
+            if (!tvisnil(&nn->val)) {
+              Node *mn = hashkey(t, &nn->key);
+              if (mn != freenode && mn != nn) {
                 freenode->next = nn->next;
                 nn->next = mn->next;
                 setmref(mn->next, nn);