Mercurial > hg > octave-lyh

changeset 1252:ccb22498f289

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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