Mercurial > octave-nkf

comparison libcruft/misc/f77-fcn.h @ 3950:9be12c29c7d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-05-23 03:00:00 by jwe]
author jwe
date Thu, 23 May 2002 03:00:00 +0000
parents 028eb74026bc
children 6b96ce9f5743
comparison
equal deleted inserted replaced
3949:294f13627ee8 3950:9be12c29c7d5
73 /* Defining this as a separate function allows us to avoid having to 73 /* Defining this as a separate function allows us to avoid having to
74 include string.h in this file. */ 74 include string.h in this file. */
75 75
76 extern void copy_f77_context (void *, void *, unsigned int); 76 extern void copy_f77_context (void *, void *, unsigned int);
77 77
78 extern void
79 F77_FUNC (xstopx, XSTOPX) (const char *s, long int slen) GCC_ATTR_NORETURN;
80
78 #if !defined (F77_FCN) 81 #if !defined (F77_FCN)
79 #define F77_FCN(f, F) F77_FUNC (f, F) 82 #define F77_FCN(f, F) F77_FUNC (f, F)
80 #endif 83 #endif
81 84
82 #ifdef __cplusplus 85 #ifdef __cplusplus