Mercurial > octave-libgccjit
diff src/DLD-FUNCTIONS/besselj.cc @ 4153:6b96ce9f5743
[project @ 2002-11-06 20:38:49 by jwe]
author | jwe |
---|---|
date | Wed, 06 Nov 2002 20:38:50 +0000 |
parents | f19f00339363 |
children | 9f7ef92b50b0 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/besselj.cc Wed Nov 06 18:41:50 2002 +0000 +++ b/src/DLD-FUNCTIONS/besselj.cc Wed Nov 06 20:38:50 2002 +0000 @@ -25,6 +25,7 @@ #endif #include "lo-specfun.h" +#include "quit.h" #include "defun-dld.h" #include "error.h" @@ -87,7 +88,11 @@ for (int j = 0; j < nc; j++) for (int i = 0; i < nr; i++) - retval(i,j) = (double) (a(i,j)); + { + OCTAVE_QUIT; + + retval(i,j) = (double) (a(i,j)); + } return retval; }