Mercurial > hg > octave-terminal
changeset 1252:ccb22498f289
[project @ 1995-04-11 16:04:14 by jwe]
author | jwe |
---|---|
date | Tue, 11 Apr 1995 16:04:14 +0000 |
parents | 97eac19837dc |
children | bb67a902760b |
files | liboctave/f77-fcn.h |
diffstat | 1 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/f77-fcn.h +++ b/liboctave/f77-fcn.h @@ -24,9 +24,17 @@ #define octave_f77_uscore_h 1 #if defined (F77_APPEND_UNDERSCORE) -#define F77_FCN(f) f##_ +#if defined (F77_UPPERCASE_NAMES) +#define F77_FCN(f, F) F##_ +#else +#define F77_FCN(f, F) f##_ +#endif #else -#define F77_FCN(f) f +#if defined (F77_UPPERCASE_NAMES) +#define F77_FCN(f, F) F +#else +#define F77_FCN(f, F) f +#endif #endif #endif