lua

commit 2771050dfa0fe6b2b679a9f91749a1ab19cfe7dd
parent e1daf10e4cb4276725db1bda8cdf0e3c893f1094
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri, 11 Apr 2014 16:01:51 -0300

'MIN/MAX_INTEGER' replaced by 'LUA_MIN/MAXINTEGER'

Diffstat:
M
llimits.h
 | 
7
++-----
M
lvm.c
 | 
8
++++----

2 files changed, 6 insertions(+), 9 deletions(-)
diff --git a/llimits.h b/llimits.h
@@ -1,5 +1,5 @@
 /*
-** $Id: llimits.h,v 1.110 2014/02/26 12:38:43 roberto Exp roberto $
+** $Id: llimits.h,v 1.111 2014/03/07 16:19:00 roberto Exp roberto $
 ** Limits, basic types, and some other `installation-dependent' definitions
 ** See Copyright Notice in lua.h
 */
@@ -44,11 +44,8 @@ typedef unsigned char lu_byte;
 
 
 /* maximum value for a lua_Unsigned */
-#define MAX_UINTEGER	(~(lua_Unsigned)0)
+#define MAX_UINTEGER	(((lua_Unsigned)LUA_MAXINTEGER << 1) + 1u)
 
-/* minimum and maximum values for lua_Integer */
-#define MAX_INTEGER	((lua_Integer)(MAX_UINTEGER >> 1))
-#define MIN_INTEGER	(~MAX_INTEGER)
 
 /*
 ** conversion of pointer to integer
diff --git a/lvm.c b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 2.194 2014/04/08 14:28:04 roberto Exp roberto $
+** $Id: lvm.c,v 2.195 2014/04/09 17:05:11 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -87,7 +87,7 @@ int luaV_tostring (lua_State *L, StkId obj) {
 ** This function should be called only when 'n' has an integral value.
 */
 int luaV_numtointeger (lua_Number n, lua_Integer *p) {
-  if (cast_num(MIN_INTEGER) <= n && n < (MAX_INTEGER + cast_num(1))) {
+  if (cast_num(LUA_MININTEGER) <= n && n < (LUA_MAXINTEGER + cast_num(1))) {
     *p = cast_integer(n);
     lua_assert(cast_num(*p) == n);
     return 1;
@@ -343,7 +343,7 @@ void luaV_objlen (lua_State *L, StkId ra, const TValue *rb) {
 
 
 lua_Integer luaV_div (lua_State *L, lua_Integer x, lua_Integer y) {
-  if (cast_unsigned(y) + 1 <= 1u) {  /* special cases: -1 or 0 */
+  if (cast_unsigned(y) + 1u <= 1u) {  /* special cases: -1 or 0 */
     if (y == 0)
       luaG_runerror(L, "attempt to divide by zero");
     return intop(-, 0, x);   /* y==-1; avoid overflow with 0x80000...//-1 */
@@ -359,7 +359,7 @@ lua_Integer luaV_div (lua_State *L, lua_Integer x, lua_Integer y) {
 
 
 lua_Integer luaV_mod (lua_State *L, lua_Integer x, lua_Integer y) {
-  if (cast_unsigned(y) + 1 <= 1u) {  /* special cases: -1 or 0 */
+  if (cast_unsigned(y) + 1u <= 1u) {  /* special cases: -1 or 0 */
     if (y == 0)
       luaG_runerror(L, "attempt to perform 'n%%0'");
     return 0;   /* y==-1; avoid overflow with 0x80000...%-1 */