diff options
Diffstat (limited to 'math/scilab/patches')
-rw-r--r-- | math/scilab/patches/patch-ag | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/math/scilab/patches/patch-ag b/math/scilab/patches/patch-ag new file mode 100644 index 00000000000..b2fe6a97aaa --- /dev/null +++ b/math/scilab/patches/patch-ag @@ -0,0 +1,30 @@ +$NetBSD: patch-ag,v 1.5 2001/07/11 15:16:21 dmcmahill Exp $ + +fixes a bug in the fft() function where the 4th input argument was not checked, +and an improper value, like 0 or a string - e.g. fft(1:4,-1:1,0) -, +crashed scilab. + +Patch is from Giuseppe Allodi <Giuseppe.Allodi@fis.unipr.it> +posted to comp.soft-sys.math.scilab + +--- routines/signal/sigelm.f.orig Mon Feb 5 10:19:36 2001 ++++ routines/signal/sigelm.f Sun Jun 3 18:52:29 2001 +@@ -134,8 +134,18 @@ + 22 continue + c rhs=4 + ilinc=iadr(lstk(top)) ++ if (istk(ilinc).ne.1) then !protect the 4th arg. (GA 2001) ++ err=4 ++ call error(53) ++ return ++ endif + linc=sadr(ilinc+4) + nspn=int(stk(linc)) ++ if (nspn.eq.0) then !protect the 4th arg. (GA 2001) ++ err=4 ++ call error(36) ++ return ++ endif + top=top-1 + iln=iadr(lstk(top)) + ln=sadr(iln+4) |