From ddadbe80997bc1ebe12e986298d26bef07811e62 Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Tue, 22 Mar 2016 20:40:41 +0100
Subject: [PATCH] Fix compiler warnings.

Thanks to Demetri Obenour.
---
 src/host/buildvm_fold.c | 2 +-
 src/host/genminilua.lua | 1 +
 src/host/minilua.c      | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/host/buildvm_fold.c b/src/host/buildvm_fold.c
index eec1af1c..e87a0af3 100644
--- 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 0a4690c1..e9a68297 100644
--- 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 aee192a7..79150286 100644
--- 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);