Mercurial > octave

changeset 1621:0d0c53b02a33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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	Sat Nov 04 11:18:50 1995 +0000
+++ b/libcruft/misc/dostop.c	Mon Nov 06 13:24:03 1995 +0000
@@ -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
 }
 
 /*