Mercurial > hg > octave-lyh
changeset 5278:fe23ec6763b7
[project @ 2005-04-12 21:04:39 by jwe]
author | jwe |
---|---|
date | Tue, 12 Apr 2005 21:04:39 +0000 |
parents | b1f1338f7931 |
children | bd32f770c09a |
files | liboctave/ChangeLog liboctave/lo-specfun.cc |
diffstat | 2 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/ChangeLog +++ b/liboctave/ChangeLog @@ -1,3 +1,8 @@ +2005-04-11 John W. Eaton <jwe@octave.org> + + * lo-specfun.cc: Use F77_XFCN instead of F77_FUNC for calls to + fortran code that could end up calling XSTOPX. + 2005-04-10 David Bateman <dbateman@free.fr> * Makefile.in: include oct-types in INCLUDES so that it is
--- a/liboctave/lo-specfun.cc +++ b/liboctave/lo-specfun.cc @@ -110,7 +110,7 @@ acosh (double x) { double retval; - F77_FUNC (xdacosh, XDACOSH) (x, retval); + F77_XFCN (xdacosh, XDACOSH, (x, retval)); return retval; } #endif @@ -120,7 +120,7 @@ asinh (double x) { double retval; - F77_FUNC (xdasinh, XDASINH) (x, retval); + F77_XFCN (xdasinh, XDASINH, (x, retval)); return retval; } #endif @@ -130,7 +130,7 @@ atanh (double x) { double retval; - F77_FUNC (xdatanh, XDATANH) (x, retval); + F77_XFCN (xdatanh, XDATANH, (x, retval)); return retval; } #endif @@ -140,7 +140,7 @@ erf (double x) { double retval; - F77_FUNC (xderf, XDERF) (x, retval); + F77_XFCN (xderf, XDERF, (x, retval)); return retval; } #endif @@ -150,7 +150,7 @@ erfc (double x) { double retval; - F77_FUNC (xderfc, XDERFC) (x, retval); + F77_XFCN (xderfc, XDERFC, (x, retval)); return retval; } #endif @@ -159,7 +159,7 @@ xgamma (double x) { double result; - F77_FUNC (xdgamma, XDGAMMA) (x, result); + F77_XFCN (xdgamma, XDGAMMA, (x, result)); return result; } @@ -173,7 +173,7 @@ (*current_liboctave_error_handler) ("xlgamma: argument must be nonnegative"); - F77_FUNC (dlgams, DLGAMS) (x, result, sgngam); + F77_XFCN (dlgams, DLGAMS, (x, result, sgngam)); return result; } @@ -1242,7 +1242,7 @@ err = true; } else - F77_FUNC (xgammainc, XGAMMAINC) (a, x, retval); + F77_XFCN (xgammainc, XGAMMAINC, (a, x, retval)); return retval; }