Mercurial > octave

diff src/quad.cc @ 260:74d73a4b3fc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-12-14 23:57:42 by jwe]
author jwe
date Tue, 14 Dec 1993 23:59:04 +0000
parents a99f28f5e351
children 7ec58832918f
line wrap: on
line diff
--- a/src/quad.cc	Tue Dec 14 22:21:35 1993 +0000
+++ b/src/quad.cc	Tue Dec 14 23:59:04 1993 +0000
@@ -59,7 +59,17 @@
   if (quad_fcn != NULL_TREE)
     {
       tree_constant *tmp = quad_fcn->eval (args, 2, 1, 0);
+
       delete [] args;
+
+      if (error_state)
+	{
+	  delete [] tmp;
+	  quad_integration_error = 1;  // XXX FIXME XXX
+	  gripe_user_supplied_eval ("quad");
+	  return retval;
+	}
+
       if (tmp != NULL_TREE_CONST && tmp[0].is_defined ())
 	{
 	  retval = tmp[0].to_scalar ();
@@ -68,8 +78,8 @@
       else
 	{
 	  delete [] tmp;
+	  quad_integration_error = 1;  // XXX FIXME XXX
 	  gripe_user_supplied_eval ("quad");
-	  jump_to_top_level ();
 	}
     }