diff options
-rw-r--r-- | table.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** Module to control static tables | 3 | ** Module to control static tables |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_table="$Id: table.c,v 2.14 1994/11/09 18:11:47 roberto Exp roberto $"; | 6 | char *rcs_table="$Id: table.c,v 2.15 1994/11/10 20:41:37 roberto Exp roberto $"; |
7 | 7 | ||
8 | #include <stdlib.h> | 8 | #include <stdlib.h> |
9 | #include <string.h> | 9 | #include <string.h> |
@@ -149,7 +149,7 @@ int lua_findconstant (char *s) | |||
149 | */ | 149 | */ |
150 | void lua_travsymbol (void (*fn)(Object *)) | 150 | void lua_travsymbol (void (*fn)(Object *)) |
151 | { | 151 | { |
152 | int i; | 152 | Word i; |
153 | for (i=0; i<lua_ntable; i++) | 153 | for (i=0; i<lua_ntable; i++) |
154 | fn(&s_object(i)); | 154 | fn(&s_object(i)); |
155 | } | 155 | } |
@@ -188,7 +188,7 @@ void lua_pack (void) | |||
188 | lua_hashcollector(); | 188 | lua_hashcollector(); |
189 | 189 | ||
190 | lua_nentity = 0; /* reset counter */ | 190 | lua_nentity = 0; /* reset counter */ |
191 | lua_block=2*lua_block-3*lua_recovered/2; /* adapt block size */ | 191 | lua_block=2*lua_block-3*lua_recovered/2U; /* adapt block size */ |
192 | } | 192 | } |
193 | 193 | ||
194 | 194 | ||