23 #if defined (HAVE_CONFIG_H)
50 #if defined (F77_USES_CRAY_CALLING_CONVENTION)
51 F77_FUNC (xstopx, XSTOPX) (octave_cray_ftn_ch_dsc desc)
53 F77_FUNC (xstopx, XSTOPX) (
const char *
s, F77_CHAR_ARG_LEN_TYPE slen)
56 #if defined (F77_USES_CRAY_CALLING_CONVENTION)
57 const char *s = desc.const_ptr = ptr_arg;
58 unsigned long slen = desc.mask.len;
64 if (s && slen > 0 && ! (slen == 1 && *s ==
' '))
OCTAVE_NORETURN liboctave_error_handler current_liboctave_error_handler
int f77_exception_encountered
void octave_jump_to_enclosing_context(void)
F77_RET_T F77_FUNC(xstopx, XSTOPX) const