1 files changed, 21 insertions, 0 deletions
diff --git a/math/scilab/files/patch-an b/math/scilab/files/patch-an
new file mode 100644
index 000000000000..36dd4d607f5d
--- /dev/null
+++ b/math/scilab/files/patch-an
@@ -0,0 +1,21 @@
+--- 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)