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)