cleanup, 1. step (to get some local changes away):
authorFerry Huberts <ferry.huberts@pelagic.nl>
Fri, 26 Oct 2012 11:06:40 +0000 (13:06 +0200)
committerFerry Huberts <ferry.huberts@pelagic.nl>
Fri, 26 Oct 2012 11:06:40 +0000 (13:06 +0200)
from: 6ff6c1cc6464a9ca6ac1d3961fc044960a402e5b

13 files changed:
lib/tas/src/lua/lapi.c
lib/tas/src/lua/lauxlib.c
lib/tas/src/lua/lauxlib.h
lib/tas/src/lua/lbaselib.c
lib/tas/src/lua/ldebug.c
lib/tas/src/lua/ldebug.h
lib/tas/src/lua/ldo.h
lib/tas/src/lua/liolib.c
lib/tas/src/lua/llex.c
lib/tas/src/lua/llex.h
lib/tas/src/lua/lparser.c
lib/tas/src/lua/lua.h
lib/tas/src/lua/lundump.c

index d5dd9ca..e8c3397 100644 (file)
@@ -805,7 +805,6 @@ LUA_API int lua_error (lua_State *L) {
   api_checknelems(L, 1);
   luaG_errormsg(L);
   lua_unlock(L);
-  return 0;  /* to avoid warnings */
 }
 
 
index ee2d133..8ae86ff 100644 (file)
@@ -50,11 +50,11 @@ LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) {
   if (strcmp(ar.namewhat, "method") == 0) {
     narg--;  /* do not count `self' */
     if (narg == 0)  /* error is in the self argument itself? */
-      return luaL_error(L, "calling `%s' on bad self (%s)", ar.name, extramsg);
+      luaL_error(L, "calling `%s' on bad self (%s)", ar.name, extramsg);
   }
   if (ar.name == NULL)
     ar.name = "?";
-  return luaL_error(L, "bad argument #%d to `%s' (%s)",
+  luaL_error(L, "bad argument #%d to `%s' (%s)",
                         narg, ar.name, extramsg);
 }
 
@@ -62,10 +62,11 @@ LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) {
 LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname) {
   const char *msg = lua_pushfstring(L, "%s expected, got %s",
                                     tname, lua_typename(L, lua_type(L,narg)));
-  return luaL_argerror(L, narg, msg);
+  luaL_argerror(L, narg, msg);
 }
 
 
+static void tag_error (lua_State *L, int narg, int tag) __attribute__((noreturn));
 static void tag_error (lua_State *L, int narg, int tag) {
   luaL_typerror(L, narg, lua_typename(L, tag)); 
 }
@@ -91,7 +92,7 @@ LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) {
   lua_pushvfstring(L, fmt, argp);
   va_end(argp);
   lua_concat(L, 2);
-  return lua_error(L);
+  lua_error(L);
 }
 
 /* }====================================================== */
index 450e16c..ee8f202 100644 (file)
@@ -31,8 +31,8 @@ LUALIB_API void luaL_openlib (lua_State *L, const char *libname,
                                const luaL_reg *l, int nup);
 LUALIB_API int luaL_getmetafield (lua_State *L, int obj, const char *e);
 LUALIB_API int luaL_callmeta (lua_State *L, int obj, const char *e);
-LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname);
-LUALIB_API int luaL_argerror (lua_State *L, int numarg, const char *extramsg);
+LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname) __attribute__((noreturn));
+LUALIB_API int luaL_argerror (lua_State *L, int numarg, const char *extramsg) __attribute__((noreturn));
 LUALIB_API const char *luaL_checklstring (lua_State *L, int numArg, size_t *l);
 LUALIB_API const char *luaL_optlstring (lua_State *L, int numArg,
                                            const char *def, size_t *l);
@@ -48,7 +48,7 @@ LUALIB_API void  luaL_getmetatable (lua_State *L, const char *tname);
 LUALIB_API void *luaL_checkudata (lua_State *L, int ud, const char *tname);
 
 LUALIB_API void luaL_where (lua_State *L, int lvl);
-LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...);
+LUALIB_API int luaL_error (lua_State *L, const char *fmt, ...) __attribute__((noreturn));
 
 LUALIB_API int luaL_findstring (const char *st, const char *const lst[]);
 
index b6a4bae..d292b24 100644 (file)
@@ -76,6 +76,7 @@ static int luaB_tonumber (lua_State *L) {
 }
 
 
+static int luaB_error (lua_State *L)  __attribute__((noreturn));
 static int luaB_error (lua_State *L) {
   int level = luaL_optint(L, 2, 1);
   luaL_checkany(L, 1);
@@ -86,7 +87,7 @@ static int luaB_error (lua_State *L) {
     lua_pushvalue(L, 1);
     lua_concat(L, 2);
   }
-  return lua_error(L);
+  lua_error(L);
 }
 
 
index 8e511e3..f894851 100644 (file)
@@ -547,7 +547,6 @@ int luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2) {
     luaG_runerror(L, "attempt to compare two %s values", t1);
   else
     luaG_runerror(L, "attempt to compare %s with %s", t1, t2);
-  return 0;
 }
 
 
index 7ff3958..da1d10e 100644 (file)
 
 
 void luaG_inithooks (lua_State *L);
-void luaG_typeerror (lua_State *L, const TObject *o, const char *opname);
-void luaG_concaterror (lua_State *L, StkId p1, StkId p2);
-void luaG_aritherror (lua_State *L, const TObject *p1, const TObject *p2);
-int luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2);
-void luaG_runerror (lua_State *L, const char *fmt, ...);
-void luaG_errormsg (lua_State *L);
+void luaG_typeerror (lua_State *L, const TObject *o, const char *opname) __attribute__((noreturn));
+void luaG_concaterror (lua_State *L, StkId p1, StkId p2) __attribute__((noreturn));
+void luaG_aritherror (lua_State *L, const TObject *p1, const TObject *p2) __attribute__((noreturn));
+int luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2) __attribute__((noreturn));
+void luaG_runerror (lua_State *L, const char *fmt, ...) __attribute__((noreturn));
+void luaG_errormsg (lua_State *L) __attribute__((noreturn));
 int luaG_checkcode (const Proto *pt);
 
 
index 2a61bf5..3cb3b8a 100644 (file)
@@ -53,7 +53,7 @@ void luaD_reallocCI (lua_State *L, int newsize);
 void luaD_reallocstack (lua_State *L, int newsize);
 void luaD_growstack (lua_State *L, int n);
 
-void luaD_throw (lua_State *L, int errcode);
+void luaD_throw (lua_State *L, int errcode) __attribute__((noreturn));
 int luaD_rawrunprotected (lua_State *L, Pfunc f, void *ud);
 
 
index 96b3883..a29f656 100644 (file)
@@ -50,6 +50,7 @@
 
 
 
+static int io_exit (lua_State *L) __attribute__((noreturn));
 
 /*
 ** {======================================================
@@ -555,10 +556,15 @@ static int io_rename (lua_State *L) {
 }
 
 
+#if !USE_TMPNAME
+static int io_tmpname (lua_State *L) __attribute__((noreturn));
+#else
+static int io_tmpname (lua_State *L);
+#endif
+
 static int io_tmpname (lua_State *L) {
 #if !USE_TMPNAME
   luaL_error(L, "`tmpname' not supported");
-  return 0;
 #else
   char buff[L_tmpnam];
   if (tmpnam(buff) != buff)
@@ -714,7 +720,6 @@ static int io_setloc (lua_State *L) {
 
 static int io_exit (lua_State *L) {
   exit(luaL_optint(L, 1, EXIT_SUCCESS));
-  return 0;  /* to avoid warnings */
 }
 
 static const luaL_reg syslib[] = {
index 045e999..4e0e5c2 100644 (file)
@@ -24,6 +24,8 @@
 
 #define next(LS) (LS->current = zgetc(LS->z))
 
+static void luaX_error (LexState *ls, const char *s, const char *token) __attribute__((noreturn));
+static void luaX_lexerror (LexState *ls, const char *s, int token) __attribute__((noreturn));
 
 
 /* ORDER RESERVED */
index 740e3f6..00afa91 100644 (file)
@@ -67,8 +67,8 @@ void luaX_init (lua_State *L);
 void luaX_setinput (lua_State *L, LexState *LS, ZIO *z, TString *source);
 int luaX_lex (LexState *LS, SemInfo *seminfo);
 void luaX_checklimit (LexState *ls, int val, int limit, const char *msg);
-void luaX_syntaxerror (LexState *ls, const char *s);
-void luaX_errorline (LexState *ls, const char *s, const char *token, int line);
+void luaX_syntaxerror (LexState *ls, const char *s) __attribute__((noreturn));
+void luaX_errorline (LexState *ls, const char *s, const char *token, int line) __attribute__((noreturn));
 const char *luaX_token2str (LexState *ls, int token);
 
 
index 99bd302..f6641a7 100644 (file)
@@ -51,6 +51,7 @@ typedef struct BlockCnt {
 */
 static void chunk (LexState *ls);
 static void expr (LexState *ls, expdesc *v);
+static void error_expected (LexState *ls, int token) __attribute__((noreturn));
 
 
 
index 88b0191..7a31f1a 100644 (file)
@@ -213,7 +213,7 @@ LUA_API void  lua_setgcthreshold (lua_State *L, int newthreshold);
 
 LUA_API const char *lua_version (void);
 
-LUA_API int   lua_error (lua_State *L);
+LUA_API int   lua_error (lua_State *L) __attribute__((noreturn));
 
 LUA_API int   lua_next (lua_State *L, int idx);
 
index 151a850..139ff33 100644 (file)
@@ -26,6 +26,8 @@ typedef struct {
  const char* name;
 } LoadState;
 
+static void unexpectedEOZ (LoadState* S) __attribute__((noreturn));
+
 static void unexpectedEOZ (LoadState* S)
 {
  luaG_runerror(S->L,"unexpected end of file in %s",S->name);