Mercurial > octave-nkf

changeset 18637:e7369c43ebe0 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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;