Mercurial > octave-nkf
changeset 3938:028eb74026bc
[project @ 2002-05-16 16:15:42 by jwe]
author | jwe |
---|---|
date | Thu, 16 May 2002 16:15:42 +0000 |
parents | e1a2648d9150 |
children | 3dd8d3dc28d4 |
files | libcruft/ChangeLog libcruft/misc/f77-fcn.h |
diffstat | 2 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/ChangeLog Thu May 16 15:12:32 2002 +0000 +++ b/libcruft/ChangeLog Thu May 16 16:15:42 2002 +0000 @@ -1,3 +1,7 @@ +2002-05-16 John W. Eaton <jwe@bevo.che.wisc.edu> + + * misc/f77-fcn.h: Define F77_FCN for backward compatibility. + 2002-04-27 John W. Eaton <jwe@bevo.che.wisc.edu> * slatec-err/ixsav.f, slatec-err/xerrwd.f: New files.
--- a/libcruft/misc/f77-fcn.h Thu May 16 15:12:32 2002 +0000 +++ b/libcruft/misc/f77-fcn.h Thu May 16 16:15:42 2002 +0000 @@ -75,6 +75,10 @@ extern void copy_f77_context (void *, void *, unsigned int); +#if !defined (F77_FCN) +#define F77_FCN(f, F) F77_FUNC (f, F) +#endif + #ifdef __cplusplus } #endif