Mercurial > hg > octave-nkf
changeset 1621:0d0c53b02a33
[project @ 1995-11-06 13:24:03 by jwe]
author | jwe |
---|---|
date | Mon, 06 Nov 1995 13:24:03 +0000 |
parents | 43df82dfb1f7 |
children | 2aed00132ba2 |
files | libcruft/misc/dostop.c |
diffstat | 1 files changed, 10 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/libcruft/misc/dostop.c +++ b/libcruft/misc/dostop.c @@ -25,14 +25,17 @@ #include "config.h" #endif +#ifdef OCTAVE_SOURCE extern void jump_to_top_level (void); +#endif /* All the STOP statements in the Fortran routines have been replaced with a call to XSTOPX, defined in the file libcruft/misc/xstopx.f. - The XSTOPX function calls this function, which calls - jump_to_top_level(), and the user will end up at the top level - instead of the shell prompt. */ + The XSTOPX function calls this function. If OCTAVE_SOURCE is + defined, this function calls jump_to_top_level(), and the user will + end up at the top level instead of the shell prompt. Otherwise, we + just stop. */ volatile void #if defined (F77_APPEND_UNDERSCORE) @@ -41,7 +44,11 @@ dostop (void) #endif { +#ifdef OCTAVE_SOURCE jump_to_top_level (); +#else + exit (1); +#endif } /*