Mercurial > octave-nkf

comparison liboctave/cruft/misc/f77-fcn.h @ 20577:c547458dc10e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
eliminate error_state from most header files * defun-int.h, event-queue.h, graphics.in.h, oct-handle.h, ov-classdef.h, misc/f77-fcn.h, unwind-prot.h: Eliminate use of global error_state variable.
author John W. Eaton <jwe@octave.org>
date Sat, 03 Oct 2015 13:20:28 -0400
parents 4197fc428c7d
children
comparison
equal deleted inserted replaced
20576:0fc9b572e566 20577:c547458dc10e
43 /* This can be used to call a Fortran subroutine that might call 43 /* This can be used to call a Fortran subroutine that might call
44 XSTOPX. XSTOPX will call lonjmp with current_context. Once back 44 XSTOPX. XSTOPX will call lonjmp with current_context. Once back
45 here, we'll restore the previous context and return. We may also 45 here, we'll restore the previous context and return. We may also
46 end up here if an interrupt is processed when the Fortran 46 end up here if an interrupt is processed when the Fortran
47 subroutine is called. In that case, we resotre the context and go 47 subroutine is called. In that case, we resotre the context and go
48 to the top level. The error_state should be checked immediately 48 to the top level. */
49 after this macro is used. */
50 49
51 #define F77_XFCN(f, F, args) \ 50 #define F77_XFCN(f, F, args) \
52 do \ 51 do \
53 { \ 52 { \
54 octave_jmp_buf saved_context; \ 53 octave_jmp_buf saved_context; \