* lisp.h (wrong_type_argument): Mark as NO_RETURN.

* data.c (wrong_type_argument): Try to avoid compiler warnings due
to the fact the function is now marked as NO_RETURN.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/data.c b/src/data.c
index 73f712279d7..8b8015bb002 100644
--- a/src/data.c
+++ b/src/data.c
@@ -125,7 +125,14 @@ wrong_type_argument (predicate, value)
       tem = call1 (predicate, value);
     }
   while (NILP (tem));
+  /* This function is marked as NO_RETURN, gcc would warn if it has a
+     return statement or if falls off the function.  Other compilers
+     warn if no return statement is present.  */
+#ifndef __GNUC__
   return value;
+#else
+  abort ();
+#endif
 }
 
 void