Mercurial > octave-nkf
changeset 18637:e7369c43ebe0 stable
Fix segmentation fault for interp2 and pchip method (bug #41838).
* libinterp/corefcn/__pchip_deriv__.cc (F__pchip_deriv__): Use F77_XFCN
instead of F77_FUNC. The used FORTAN functions call xstopx_ that
tries to restore the current_context, but F77_FUNC doesn't save the
current_context.
author | Stefan Mahr <dac922@gmx.de> |
---|---|
date | Wed, 12 Mar 2014 02:36:45 +0100 |
parents | 2633b5f3106a |
children | 400f48e9e8cb cdcf66f4e244 |
files | libinterp/corefcn/__pchip_deriv__.cc |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/libinterp/corefcn/__pchip_deriv__.cc Thu Mar 27 23:42:02 2014 -0400 +++ b/libinterp/corefcn/__pchip_deriv__.cc Wed Mar 12 02:36:45 2014 +0100 @@ -95,8 +95,8 @@ for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) { - F77_FUNC (pchim, PCHIM) (nx, xvec.data (), - yvec, dvec, incfd, &ierr); + F77_XFCN (pchim, PCHIM, (nx, xvec.data (), + yvec, dvec, incfd, &ierr)); yvec += inc; dvec += inc; @@ -142,8 +142,8 @@ for (octave_idx_type i = (rows ? nyr : nyc); i > 0; i--) { - F77_FUNC (dpchim, DPCHIM) (nx, xvec.data (), - yvec, dvec, incfd, &ierr); + F77_XFCN (dpchim, DPCHIM, (nx, xvec.data (), + yvec, dvec, incfd, &ierr)); yvec += inc; dvec += inc;