From 27d8d3b5d9a8f05336144f85670c0e00d12dc6cd Mon Sep 17 00:00:00 2001
From: Mike Pall <mike>
Date: Fri, 10 Jun 2011 13:47:11 +0200
Subject: Fix check for missing arguments in string.format().

---
 src/lib_string.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/lib_string.c b/src/lib_string.c
index e2396abb..e54b2d50 100644
--- a/src/lib_string.c
+++ b/src/lib_string.c
@@ -736,7 +736,7 @@ static unsigned LUA_INTFRM_T num2uintfrm(lua_State *L, int arg)
 
 LJLIB_CF(string_format)
 {
-  int arg = 1;
+  int arg = 1, top = (int)(L->top - L->base);
   GCstr *fmt = lj_lib_checkstr(L, arg);
   const char *strfrmt = strdata(fmt);
   const char *strfrmt_end = strfrmt + fmt->len;
@@ -750,7 +750,8 @@ LJLIB_CF(string_format)
     } else { /* format item */
       char form[MAX_FMTSPEC];  /* to store the format (`%...') */
       char buff[MAX_FMTITEM];  /* to store the formatted item */
-      arg++;
+      if (++arg > top)
+	luaL_argerror(L, arg, lj_obj_typename[0]);
       strfrmt = scanformat(L, strfrmt, form);
       switch (*strfrmt++) {
       case 'c':
-- 
cgit v1.2.3-55-g6feb