Mercurial > octave-nkf
changeset 3950:9be12c29c7d5
[project @ 2002-05-23 03:00:00 by jwe]
author | jwe |
---|---|
date | Thu, 23 May 2002 03:00:00 +0000 |
parents | 294f13627ee8 |
children | e6f67a1ed814 |
files | libcruft/ChangeLog libcruft/misc/f77-fcn.c libcruft/misc/f77-fcn.h |
diffstat | 3 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog Thu May 23 01:22:11 2002 +0000 +++ b/libcruft/ChangeLog Thu May 23 03:00:00 2002 +0000 @@ -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.
--- a/libcruft/misc/f77-fcn.c Thu May 23 01:22:11 2002 +0000 +++ b/libcruft/misc/f77-fcn.c Thu May 23 03:00:00 2002 +0000 @@ -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. */
--- a/libcruft/misc/f77-fcn.h Thu May 23 01:22:11 2002 +0000 +++ b/libcruft/misc/f77-fcn.h Thu May 23 03:00:00 2002 +0000 @@ -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