official lua bugfix

cloudwu · cloudwu · commit 100329f09f78 · 2017-09-04T16:23:19.000+08:00
diff --git a/3rd/lua/lgc.c b/3rd/lua/lgc.c
@@ -652,10 +652,11 @@ static void clearkeys (global_State *g, GCObject *l, GCObject *f) {
     Table *h = gco2t(l);
     Node *n, *limit = gnodelast(h);
     for (n = gnode(h, 0); n < limit; n++) {
-      if (iscleared(g, gkey(n))) {
+      if (!ttisnil(gval(n)) && (iscleared(g, gkey(n)))) {
         setnilvalue(gval(n));  /* remove value ... */
-        removeentry(n);  /* and remove entry from table */
       }
+      if (ttisnil(gval(n)))  /* is entry empty? */
+        removeentry(n);  /* remove entry from table */
     }
   }
 }

Original file line number	Diff line number	Diff line change
`@@ -652,10 +652,11 @@ static void clearkeys (global_State g, GCObject l, GCObject *f) {`
`652`	`652`	`Table *h = gco2t(l);`
`653`	`653`	`Node n, limit = gnodelast(h);`
`654`	`654`	`for (n = gnode(h, 0); n < limit; n++) {`
`655`		`- if (iscleared(g, gkey(n))) {`
	`655`	`+ if (!ttisnil(gval(n)) && (iscleared(g, gkey(n)))) {`
`656`	`656`	`setnilvalue(gval(n)); /* remove value ... */`
`657`		`- removeentry(n); /* and remove entry from table */`
`658`	`657`	`}`
	`658`	`+ if (ttisnil(gval(n))) /* is entry empty? */`
	`659`	`+ removeentry(n); /* remove entry from table */`
`659`	`660`	`}`
`660`	`661`	`}`
`661`	`662`	`}`