diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-04-12 11:45:10 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2014-04-12 11:45:10 -0300 |
commit | ef789d4161b6f2b6c28c28c71268a591e9ec6d42 (patch) | |
tree | 4c5f4ddcf0c9ab3f75e05e270c341ff3826724c6 /lapi.c | |
parent | b390d7c168ac85f5cef85b6a2a5716e5fde388a8 (diff) | |
download | lua-ef789d4161b6f2b6c28c28c71268a591e9ec6d42.tar.gz lua-ef789d4161b6f2b6c28c28c71268a591e9ec6d42.tar.bz2 lua-ef789d4161b6f2b6c28c28c71268a591e9ec6d42.zip |
new global macro 'LUA_MAXUNSIGNED'
Diffstat (limited to 'lapi.c')
-rw-r--r-- | lapi.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lapi.c,v 2.201 2014/03/12 20:57:40 roberto Exp roberto $ | 2 | ** $Id: lapi.c,v 2.202 2014/04/01 18:51:23 roberto Exp roberto $ |
3 | ** Lua API | 3 | ** Lua API |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -381,7 +381,7 @@ LUA_API lua_Unsigned lua_tounsignedx (lua_State *L, int idx, int *pisnum) { | |||
381 | break; | 381 | break; |
382 | } | 382 | } |
383 | case LUA_TNUMFLT: { /* compute floor(n) % 2^(numbits in an integer) */ | 383 | case LUA_TNUMFLT: { /* compute floor(n) % 2^(numbits in an integer) */ |
384 | const lua_Number twop = cast_num(MAX_UINTEGER) + cast_num(1); /* 2^n */ | 384 | const lua_Number two2n = cast_num(LUA_MAXUNSIGNED) + cast_num(1); |
385 | lua_Number n = fltvalue(o); /* get value */ | 385 | lua_Number n = fltvalue(o); /* get value */ |
386 | int neg = 0; | 386 | int neg = 0; |
387 | n = l_floor(n); /* get its floor */ | 387 | n = l_floor(n); /* get its floor */ |
@@ -389,7 +389,7 @@ LUA_API lua_Unsigned lua_tounsignedx (lua_State *L, int idx, int *pisnum) { | |||
389 | neg = 1; | 389 | neg = 1; |
390 | n = -n; /* make 'n' positive, so that 'fmod' is the same as '%' */ | 390 | n = -n; /* make 'n' positive, so that 'fmod' is the same as '%' */ |
391 | } | 391 | } |
392 | n = l_mathop(fmod)(n, twop); /* n = n % 2^(numbits in an integer) */ | 392 | n = l_mathop(fmod)(n, two2n); /* n = n % 2^(numbits in an integer) */ |
393 | if (luai_numisnan(n)) /* not a number? */ | 393 | if (luai_numisnan(n)) /* not a number? */ |
394 | break; /* not an integer, too */ | 394 | break; /* not an integer, too */ |
395 | res = cast_unsigned(n); /* 'n' now must fit in an unsigned */ | 395 | res = cast_unsigned(n); /* 'n' now must fit in an unsigned */ |