lua

commit ae00b3a76f3c24092e79eced42b1dfc7cf36acac
parent 619be354c8e38b53d36930dc6f7f1242cd2d853f
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Wed, 18 Apr 2007 16:24:12 -0300

another way to normalize -0 that avoids problems with very small
numbers (adding 1 turns them all into 1)

Diffstat:
M
ltable.c
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ltable.c b/ltable.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltable.c,v 2.35 2006/09/11 14:07:24 roberto Exp roberto $
+** $Id: ltable.c,v 2.36 2007/04/10 12:18:17 roberto Exp roberto $
 ** Lua tables (hash)
 ** See Copyright Notice in lua.h
 */
@@ -84,8 +84,8 @@ static const Node dummynode_ = {
 static Node *hashnum (const Table *t, lua_Number n) {
   unsigned int a[numints];
   int i;
-  n += 1;  /* normalize number (avoid -0) */
-  lua_assert(sizeof(a) <= sizeof(n));
+  if (luai_numeq(n, 0))  /* avoid problems with -0 */
+    return gnode(t, 0);
   memcpy(a, &n, sizeof(a));
   for (i = 1; i < numints; i++) a[0] += a[i];
   return hashmod(t, a[0]);