aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lstrlib.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/lstrlib.c b/lstrlib.c
index bc3da951..ff5cdd77 100644
--- a/lstrlib.c
+++ b/lstrlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lstrlib.c,v 1.235 2015/10/08 15:53:05 roberto Exp roberto $ 2** $Id: lstrlib.c,v 1.236 2015/10/28 17:56:51 roberto Exp roberto $
3** Standard library for string operations and pattern-matching 3** Standard library for string operations and pattern-matching
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -1339,11 +1339,11 @@ static int str_pack (lua_State *L) {
1339 case Kchar: { /* fixed-size string */ 1339 case Kchar: { /* fixed-size string */
1340 size_t len; 1340 size_t len;
1341 const char *s = luaL_checklstring(L, arg, &len); 1341 const char *s = luaL_checklstring(L, arg, &len);
1342 if (size <= len) /* string larger than (or equal to) needed? */ 1342 if ((size_t)size <= len) /* string larger than (or equal to) needed? */
1343 luaL_addlstring(&b, s, size); /* truncate string to asked size */ 1343 luaL_addlstring(&b, s, size); /* truncate string to asked size */
1344 else { /* string smaller than needed */ 1344 else { /* string smaller than needed */
1345 luaL_addlstring(&b, s, len); /* add it all */ 1345 luaL_addlstring(&b, s, len); /* add it all */
1346 while (len++ < size) /* pad extra space */ 1346 while (len++ < (size_t)size) /* pad extra space */
1347 luaL_addchar(&b, LUA_PACKPADBYTE); 1347 luaL_addchar(&b, LUA_PACKPADBYTE);
1348 } 1348 }
1349 break; 1349 break;