rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added explicit default options to string.pack/unpack functions

This commit is contained in:
Roberto Ierusalimschy 2014-01-09 14:21:28 -02:00
parent cd848cab6b
commit 916bd874ad
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lstrlib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lstrlib.c,v 1.183 2014/01/05 14:05:58 roberto Exp roberto $
** $Id: lstrlib.c,v 1.184 2014/01/08 18:34:34 roberto Exp roberto $
** Standard library for string operations and pattern-matching
** See Copyright Notice in lua.h
*/
@ -970,14 +970,17 @@ static union {
static int getendian (lua_State *L, int arg) {
const char *endian = luaL_optstring(L, arg,
(nativeendian.little ? "l" : "b"));
if (*endian == 'n') /* native? */
return nativeendian.little;
luaL_argcheck(L, *endian == 'l' || *endian == 'b', arg,
"endianess must be 'l' or 'b'");
"endianess must be 'l'/'b'/'n'");
return (*endian == 'l');
}
static int getintsize (lua_State *L, int arg) {
int size = luaL_optint(L, arg, SZINT);
int size = luaL_optint(L, arg, 0);
if (size == 0) size = SZINT;
luaL_argcheck(L, 1 <= size && size <= MAXINTSIZE, arg,
"integer size out of valid range");
return size;
@ -1087,9 +1090,10 @@ static void correctendianess (lua_State *L, char *b, int size, int endianarg) {
(sizeof(lua_Number) == sizeof(float) ? "f" : "d")
static int getfloatsize (lua_State *L, int arg) {
const char *size = luaL_optstring(L, arg, DEFAULTFLOATSIZE);
const char *size = luaL_optstring(L, arg, "n");
if (*size == 'n') size = DEFAULTFLOATSIZE;
luaL_argcheck(L, *size == 'd' || *size == 'f', arg,
"size must be 'f' or 'd'");
"size must be 'f'/'d'/'n'");
return (*size == 'd' ? sizeof(double) : sizeof(float));
}