paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 19:31:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix from A. Klenin wrt out of bounds in ipfisn, mantis #19634

Browse Source 
git-svn-id: trunk@17838 -
This commit is contained in:
marco 2011-06-26 20:14:13 +00:00
parent 589d061c3d
commit a59fa38434
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/numlib/src/ipf.pas
View File

@ -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);