From a59fa3843481c3d14161e08cb2e9334dee389cdb Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 26 Jun 2011 20:14:13 +0000
Subject: [PATCH]  * Fix from A. Klenin wrt out of bounds in ipfisn, mantis
 #19634

git-svn-id: trunk@17838 -
---
 packages/numlib/src/ipf.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/numlib/src/ipf.pas b/packages/numlib/src/ipf.pas
index 3b4ee1dfc2..13a5dc188c 100644
--- a/packages/numlib/src/ipf.pas
+++ b/packages/numlib/src/ipf.pas
@@ -578,7 +578,7 @@ begin
     begin
       q:=1/h^[i-1]; b^[i-2]:=py^[i]*q-py^[i-1]*(p+q)+py^[i-2]*p; p:=q
     end;
-  slegpb(n-1, 1, {2,} t^[0], b^[0], pd2s^[1], ca, term);
+  slegpb(n-1, 1, {2,} t^[1], b^[0], pd2s^[1], ca, term);
   freemem(h, n*s);
   freemem(b, (n-1)*s);
   freemem(t, 2*(n-1)*s);