hash: out of bound array access in hash-iter-peek.

* hash.c (hash_iter_peek): The loop here must be a top-of-test
while loop, not a bottom-test do loop. In the chained hashing
implementation, this was a do loop, but it also had a test
with a break for the index.

1 files changed, 2 insertions, 2 deletions

diff --git a/hash.c b/hash.c
index b24740ec..2c915540 100644
--- a/hash.c
+++ b/hash.c
@@ -1341,11 +1341,11 @@ val hash_iter_peek(struct hash_iter *hi)
   if (!h)
     return nil;
 
-  do {
+  while (index <= mask) {
     val cell = hi->table->v.vec[index++];
     if (cell)
       return cell;
-  } while (index <= mask);
+  }
 
   return nil;
 }