* added -Wbad-function-cast
authorBernd Petrovitsch <bernd@firmix.at>
Fri, 16 Nov 2007 19:34:26 +0000 (19:34 +0000)
committerFerry Huberts <ferry.huberts@pelagic.nl>
Fri, 26 Oct 2012 11:06:46 +0000 (13:06 +0200)
from: ee7eeb6d7f7b5a23830402c6b346d8db93995d41

lib/tas/src/lua/lauxlib.c
lib/tas/src/lua/lauxlib.h
lib/tas/src/lua/lbaselib.c
lib/tas/src/lua/ldblib.c
lib/tas/src/lua/liolib.c
lib/tas/src/lua/lmathlib.c
lib/tas/src/lua/lstrlib.c

index 8ae86ff..6093a5f 100644 (file)
@@ -257,7 +257,7 @@ LUALIB_API void luaL_openlib (lua_State *L, const char *libname,
 */
 
 static int checkint (lua_State *L, int topop) {
-  int n = (int)lua_tonumber(L, -1);
+  int n = lua_tonumber(L, -1);
   if (n == 0 && !lua_isnumber(L, -1)) n = -1;
   lua_pop(L, topop);
   return n;
@@ -425,7 +425,7 @@ LUALIB_API int luaL_ref (lua_State *L, int t) {
     return LUA_REFNIL;  /* `nil' has a unique fixed reference */
   }
   lua_rawgeti(L, t, FREELIST_REF);  /* get first free element */
-  ref = (int)lua_tonumber(L, -1);  /* ref = t[FREELIST_REF] */
+  ref = lua_tonumber(L, -1);  /* ref = t[FREELIST_REF] */
   lua_pop(L, 1);  /* remove it from stack */
   if (ref != 0) {  /* any free element? */
     lua_rawgeti(L, t, ref);  /* remove it from list */
index ee8f202..4dd22b1 100644 (file)
@@ -70,14 +70,14 @@ LUALIB_API int luaL_loadbuffer (lua_State *L, const char *buff, size_t sz,
 ** ===============================================================
 */
 
-#define luaL_argcheck(L, cond,numarg,extramsg) if (!(cond)) \
-                                               luaL_argerror(L, numarg,extramsg)
-#define luaL_checkstring(L,n)  (luaL_checklstring(L, (n), NULL))
-#define luaL_optstring(L,n,d)  (luaL_optlstring(L, (n), (d), NULL))
-#define luaL_checkint(L,n)     ((int)luaL_checknumber(L, n))
-#define luaL_checklong(L,n)    ((long)luaL_checknumber(L, n))
-#define luaL_optint(L,n,d)     ((int)luaL_optnumber(L, n,(lua_Number)(d)))
-#define luaL_optlong(L,n,d)    ((long)luaL_optnumber(L, n,(lua_Number)(d)))
+#define luaL_argcheck(L, cond,numarg,extramsg) do { if (!(cond))         \
+            luaL_argerror(L, numarg,extramsg); } while (0)
+#define luaL_checkstring(L,n)  luaL_checklstring(L, (n), NULL)
+#define luaL_optstring(L,n,d)  luaL_optlstring(L, (n), (d), NULL)
+#define luaL_checkint(L,n)     luaL_checknumber(L, n)
+#define luaL_checklong(L,n)    luaL_checknumber(L, n)
+#define luaL_optint(L,n,d)     luaL_optnumber(L, n,(lua_Number)(d))
+#define luaL_optlong(L,n,d)    luaL_optnumber(L, n,(lua_Number)(d))
 
 
 /*
index d292b24..659713b 100644 (file)
@@ -188,8 +188,8 @@ static int luaB_rawset (lua_State *L) {
 
 
 static int luaB_gcinfo (lua_State *L) {
-  lua_pushnumber(L, (lua_Number)lua_getgccount(L));
-  lua_pushnumber(L, (lua_Number)lua_getgcthreshold(L));
+  lua_pushnumber(L, lua_getgccount(L));
+  lua_pushnumber(L, lua_getgcthreshold(L));
   return 2;
 }
 
index 6dc9b64..bd2f256 100644 (file)
@@ -36,7 +36,7 @@ static int getinfo (lua_State *L) {
   lua_Debug ar;
   const char *options = luaL_optstring(L, 2, "flnSu");
   if (lua_isnumber(L, 1)) {
-    if (!lua_getstack(L, (int)(lua_tonumber(L, 1)), &ar)) {
+    if (!lua_getstack(L, lua_tonumber(L, 1), &ar)) {
       lua_pushnil(L);  /* level out of range */
       return 1;
     }
@@ -203,7 +203,7 @@ static int gethook (lua_State *L) {
     lua_rawget(L, LUA_REGISTRYINDEX);   /* get hook */
   }
   lua_pushstring(L, unmakemask(mask, buff));
-  lua_pushnumber(L, (lua_Number)lua_gethookcount(L));
+  lua_pushnumber(L, lua_gethookcount(L));
   return 3;
 }
 
index a29f656..7e42467 100644 (file)
@@ -373,7 +373,7 @@ static int g_read (lua_State *L, FILE *f, int first) {
     success = 1;
     for (n = first; nargs-- && success; n++) {
       if (lua_type(L, n) == LUA_TNUMBER) {
-        size_t l = (size_t)lua_tonumber(L, n);
+        size_t l = lua_tonumber(L, n);
         success = (l == 0) ? test_eof(L, f) : read_chars(L, f, l);
       }
       else {
@@ -582,7 +582,7 @@ static int io_getenv (lua_State *L) {
 
 
 static int io_clock (lua_State *L) {
-  lua_pushnumber(L, ((lua_Number)clock())/(lua_Number)CLOCKS_PER_SEC);
+  lua_pushnumber(L, clock()/(lua_Number)CLOCKS_PER_SEC);
   return 1;
 }
 
@@ -622,7 +622,7 @@ static int getfield (lua_State *L, const char *key, int d) {
   lua_pushstring(L, key);
   lua_gettable(L, -2);
   if (lua_isnumber(L, -1))
-    res = (int)(lua_tonumber(L, -1));
+    res = lua_tonumber(L, -1);
   else {
     if (d == -2)
       return luaL_error(L, "field `%s' missing in date table", key);
@@ -635,7 +635,7 @@ static int getfield (lua_State *L, const char *key, int d) {
 
 static int io_date (lua_State *L) {
   const char *s = luaL_optstring(L, 1, "%c");
-  time_t t = (time_t)(luaL_optnumber(L, 2, -1));
+  time_t t = luaL_optnumber(L, 2, -1);
   struct tm *stm;
   if (t == (time_t)(-1))  /* no time given? */
     t = time(NULL);  /* use current time */
@@ -696,8 +696,8 @@ static int io_time (lua_State *L) {
 
 
 static int io_difftime (lua_State *L) {
-  lua_pushnumber(L, difftime((time_t)(luaL_checknumber(L, 1)),
-                             (time_t)(luaL_optnumber(L, 2, 0))));
+  lua_pushnumber(L, difftime(luaL_checknumber(L, 1),
+                             luaL_optnumber(L, 2, 0)));
   return 1;
 }
 
index f074a56..e210473 100644 (file)
@@ -179,14 +179,14 @@ static int math_random (lua_State *L) {
     case 1: {  /* only upper limit */
       int u = luaL_checkint(L, 1);
       luaL_argcheck(L, 1<=u, 1, "interval is empty");
-      lua_pushnumber(L, (int)floor(r*u)+1);  /* int between 1 and `u' */
+      lua_pushnumber(L, floor(r*u)+1);  /* int between 1 and `u' */
       break;
     }
     case 2: {  /* lower and upper limits */
       int l = luaL_checkint(L, 1);
       int u = luaL_checkint(L, 2);
       luaL_argcheck(L, l<=u, 2, "interval is empty");
-      lua_pushnumber(L, (int)floor(r*(u-l+1))+l);  /* int between `l' and `u' */
+      lua_pushnumber(L, floor(r*(u-l+1))+l);  /* int between `l' and `u' */
       break;
     }
     default: return luaL_error(L, "wrong number of arguments");
index 8752e3a..4942b98 100644 (file)
@@ -517,11 +517,12 @@ static int gfind_aux (lua_State *L) {
   const char *s = lua_tostring(L, lua_upvalueindex(1));
   size_t ls = lua_strlen(L, lua_upvalueindex(1));
   const char *p = lua_tostring(L, lua_upvalueindex(2));
+  unsigned int idx3 = lua_tonumber(L, lua_upvalueindex(3));
   const char *src;
   ms.L = L;
   ms.src_init = s;
   ms.src_end = s+ls;
-  for (src = s + (size_t)lua_tonumber(L, lua_upvalueindex(3));
+  for (src = s + idx3;
        src <= ms.src_end;
        src++) {
     const char *e;
@@ -704,7 +705,8 @@ static int str_format (lua_State *L) {
           break;
         }
         case 'o':  case 'u':  case 'x':  case 'X': {
-          sprintf(buff, form, (unsigned int)(luaL_checknumber(L, arg)));
+          const unsigned int n = luaL_checknumber(L, arg);
+          sprintf(buff, form, n);
           break;
         }
         case 'e':  case 'E': case 'f':