Mercurial > octave
diff libcruft/misc/f77-fcn.h @ 6107:6465ca8e4f0c
[project @ 2006-10-26 22:00:12 by jwe]
author | jwe |
---|---|
date | Thu, 26 Oct 2006 22:00:12 +0000 |
parents | 4036e6fca790 |
children | f1676652d808 |
line wrap: on
line diff
--- a/libcruft/misc/f77-fcn.h Thu Oct 26 21:52:14 2006 +0000 +++ b/libcruft/misc/f77-fcn.h Thu Oct 26 22:00:12 2006 +0000 @@ -78,7 +78,7 @@ while (0) /* So we can check to see if an exception has occurred. */ -extern int f77_exception_encountered; +CRUFT_API extern int f77_exception_encountered; #if !defined (F77_FCN) #define F77_FCN(f, F) F77_FUNC (f, F) @@ -222,7 +222,7 @@ cs[F77_CHAR_ARG_LEN_USE(s, len)] = '\0' -extern F77_RET_T +extern CRUFT_API F77_RET_T F77_FUNC (xstopx, XSTOPX) (F77_CONST_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL) GCC_ATTR_NORETURN;