Mercurial > octave-nkf

diff liboctave/Quad.cc @ 4180:84fe3ca3a246
[project @ 2002-11-15 04:47:01 by jwe]
author: jwe
date: Fri, 15 Nov 2002 04:47:02 +0000
parents: 47d3baea432d
children: 5719210fff4c
--- a/liboctave/Quad.cc	Thu Nov 14 04:31:19 2002 +0000
+++ b/liboctave/Quad.cc	Fri Nov 15 04:47:02 2002 +0000
@@ -31,6 +31,7 @@
 #include "Quad.h"
 #include "f77-fcn.h"
 #include "lo-error.h"
+#include "quit.h"
 #include "sun-utils.h"
 
 static integrand_fcn user_fcn;
@@ -59,6 +60,8 @@
 static int
 user_function (double *x, int& ierr, double *result)
 {
+  BEGIN_INTERRUPT_WITH_EXCEPTIONS;
+
 #if defined (sun) && defined (__GNUC__)
   double xx = access_double (x);
 #else
@@ -78,6 +81,8 @@
   if (quad_integration_error)
     ierr = -1;
 
+  END_INTERRUPT_WITH_EXCEPTIONS;
+
   return 0;
 }