Merge from emacs--devo--0

[gnu-emacs] / src / data.c

diff --git a/src/data.c b/src/data.c
index 8e7f5d205421285e4385ebf9781bb9e9d3fbc1af..ec9a176f078408d0258b81707d81bb8d3e48c11e 100644 (file)
--- 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