# HG changeset patch
# User jwe
# Date 1022122800 0
# Node ID 9be12c29c7d5390b3f3417bf6c0136a5f3888c16
# Parent  294f13627ee88828bf83a9af077d49e93d72e6d0
[project @ 2002-05-23 03:00:00 by jwe]

diff --git a/libcruft/ChangeLog b/libcruft/ChangeLog
--- a/libcruft/ChangeLog
+++ b/libcruft/ChangeLog
@@ -1,3 +1,9 @@
+2002-05-22  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* misc/f77-fcn.c (xstopx): Return type is void, not volatile void.
+	* misc/f77-fcn.h (xstopx): Provide decl.  Add special gcc noreturn
+	attribute here.
+
 2002-05-16  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* misc/f77-fcn.h: Define F77_FCN for backward compatibility.
diff --git a/libcruft/misc/f77-fcn.c b/libcruft/misc/f77-fcn.c
--- a/libcruft/misc/f77-fcn.c
+++ b/libcruft/misc/f77-fcn.c
@@ -43,7 +43,7 @@
    called us.  Then the calling function should do whatever cleanup
    is necessary.  */
 
-volatile void
+void
 F77_FUNC (xstopx, XSTOPX) (const char *s, long int slen)
 {
   /* Skip printing message if it is just a single blank character.  */
diff --git a/libcruft/misc/f77-fcn.h b/libcruft/misc/f77-fcn.h
--- a/libcruft/misc/f77-fcn.h
+++ b/libcruft/misc/f77-fcn.h
@@ -75,6 +75,9 @@
 
 extern void copy_f77_context (void *, void *, unsigned int);
 
+extern void
+F77_FUNC (xstopx, XSTOPX) (const char *s, long int slen) GCC_ATTR_NORETURN;
+
 #if !defined (F77_FCN)
 #define F77_FCN(f, F) F77_FUNC (f, F)
 #endif