From 04265655a8cda2d3402c339fc388f0b225c142fb Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Mon, 20 Sep 1999 11:57:29 -0300
Subject: compatibility with old fallback system now provided by external
 module

---
 lbuiltin.c | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'lbuiltin.c')

diff --git a/lbuiltin.c b/lbuiltin.c
index b7365f66..74e8c6d0 100644
--- a/lbuiltin.c
+++ b/lbuiltin.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbuiltin.c,v 1.61 1999/08/16 20:52:00 roberto Exp roberto $
+** $Id: lbuiltin.c,v 1.62 1999/09/08 20:45:18 roberto Exp roberto $
 ** Built-in functions
 ** See Copyright Notice in lua.h
 */
@@ -44,13 +44,14 @@ static void pushtagstring (TaggedString *s) {
 
 static real getsize (const Hash *h) {
   real max = 0;
-  int i;
-  for (i = 0; i<nhash(h); i++) {
-    Node *n = h->node+i;
+  int i = nhash(h);
+  Node *n = h->node;
+  while (i--) {
     if (ttype(ref(n)) == LUA_T_NUMBER && 
         ttype(val(n)) != LUA_T_NIL &&
         nvalue(ref(n)) > max)
       max = nvalue(ref(n));
+    n++;
   }
   return max;
 }
@@ -677,9 +678,6 @@ static void testC (void) {
 
 
 static const struct luaL_reg builtin_funcs[] = {
-#ifdef LUA_COMPAT2_5
-  {"setfallback", luaT_setfallback},
-#endif
 #ifdef DEBUG
   {"testC", testC},
   {"totalmem", mem_query},
-- 
cgit v1.2.3-55-g6feb