diff options
-rw-r--r-- | lstrlib.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |