Fix compiler warnings.

Thanks to Demetri Obenour.

diff --git a/src/host/buildvm_fold.c b/src/host/buildvm_fold.c
index eec1af1cbac127bc2a96aa8f1670a11490100633..e87a0af3dfed5ffca4c6195c0b810ca5dc513acc 100644 (file)
--- a/src/host/buildvm_fold.c
+++ b/src/host/buildvm_fold.c
@@ -9,7 +9,7 @@
 
 /* Context for the folding hash table generator. */
 static int lineno;
-static int funcidx;
+static uint32_t funcidx;
 static uint32_t foldkeys[BUILD_MAX_FOLD];
 static uint32_t nkeys;
 

diff --git a/src/host/genminilua.lua b/src/host/genminilua.lua
index 0a4690c1d2f826c825f9c8c8a2ec872b97b8ccfb..e9a68297bbf21f2a242c239f2db3f6718078acbd 100644 (file)
--- a/src/host/genminilua.lua
+++ b/src/host/genminilua.lua
@@ -300,6 +300,7 @@ local function strip_unused3(src)
   src = gsub(src, "if%([^\n]*hookmask[^\n]*&&\n[^\n]*%b{}\n", "")
   src = gsub(src, "(twoto%b()%()", "%1(size_t)")
   src = gsub(src, "i<sizenode", "i<(int)sizenode")
+  src = gsub(src, "cast%(unsigned int,key%-1%)", "cast(unsigned int,key)-1")
   return gsub(src, "\n\n+", "\n")
 end
 

diff --git a/src/host/minilua.c b/src/host/minilua.c
index aee192a710c3dcb16572c10719c18cf5f40f8fdb..79150286cfc3d29cb1d6c65858c2f36af0708a23 100644 (file)
--- a/src/host/minilua.c
+++ b/src/host/minilua.c
@@ -1606,7 +1606,7 @@ luaC_barriert(L,t,key);
 return gval(mp);
 }
 static const TValue*luaH_getnum(Table*t,int key){
-if(cast(unsigned int,key-1)<cast(unsigned int,t->sizearray))
+if(cast(unsigned int,key)-1<cast(unsigned int,t->sizearray))
 return&t->array[key-1];
 else{
 lua_Number nk=cast_num(key);