Mercurial > octave-nkf
diff src/DLD-FUNCTIONS/filter.cc @ 4153:6b96ce9f5743
[project @ 2002-11-06 20:38:49 by jwe]
author | jwe |
---|---|
date | Wed, 06 Nov 2002 20:38:50 +0000 |
parents | e71b3d1dd327 |
children | 9f7ef92b50b0 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/filter.cc Wed Nov 06 18:41:50 2002 +0000 +++ b/src/DLD-FUNCTIONS/filter.cc Wed Nov 06 20:38:50 2002 +0000 @@ -32,6 +32,8 @@ #include <config.h> #endif +#include "quit.h" + #include "defun-dld.h" #include "error.h" #include "oct-obj.h" @@ -93,8 +95,12 @@ if (si_len > 1) { for (int j = 0; j < si_len - 1; j++) - si (j) = si (j+1) - a (j+1) * y (i) - + b (j+1) * x (i); + { + OCTAVE_QUIT; + + si (j) = si (j+1) - a (j+1) * y (i) + + b (j+1) * x (i); + } si (si_len-1) = b (si_len) * x (i) - a (si_len) * y (i); @@ -113,7 +119,11 @@ if (si_len > 1) { for (int j = 0; j < si_len - 1; j++) - si (j) = si (j+1) + b (j+1) * x (i); + { + OCTAVE_QUIT; + + si (j) = si (j+1) + b (j+1) * x (i); + } si (si_len-1) = b (si_len) * x (i); }