# HG changeset patch
# User jwe
# Date 1113339879 0
# Node ID fe23ec6763b76ad60f1d19373b9a8025b8d3f874
# Parent  b1f1338f7931e72665c3b7a0c70babc01b61ae57
[project @ 2005-04-12 21:04:39 by jwe]

diff -r b1f1338f7931 -r fe23ec6763b7 liboctave/ChangeLog
--- a/liboctave/ChangeLog	Sun Apr 10 18:39:45 2005 +0000
+++ b/liboctave/ChangeLog	Tue Apr 12 21:04:39 2005 +0000
@@ -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 
diff -r b1f1338f7931 -r fe23ec6763b7 liboctave/lo-specfun.cc
--- a/liboctave/lo-specfun.cc	Sun Apr 10 18:39:45 2005 +0000
+++ b/liboctave/lo-specfun.cc	Tue Apr 12 21:04:39 2005 +0000
@@ -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;
 }