# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1493818376 14400
# Node ID 5296657cde44682765b75ec680f2afb7da42265a
# Parent  314d980bee931b04049ca39be784d01d3bb126b1
use lgamma if lgamma_r is not available (bug #50919)

* lo-specfun.cc (rc_lgamma): Use lgamma (or lgammaf) if lgamma_r
(or lgammaf_r) is not available.  Only fall back to DLGAMS and ALGAMS
from SLATEC if both are missing.

diff -r 314d980bee93 -r 5296657cde44 liboctave/numeric/lo-specfun.cc
--- a/liboctave/numeric/lo-specfun.cc	Tue May 02 16:01:14 2017 -0700
+++ b/liboctave/numeric/lo-specfun.cc	Wed May 03 09:32:56 2017 -0400
@@ -377,6 +377,9 @@
 #if defined (HAVE_LGAMMA_R)
       int sgngam;
       result = lgamma_r (x, &sgngam);
+#elif defined (HAVE_LGAMMA)
+      result = lgamma (x);
+      int sgngam = signgam;
 #else
       double sgngam = 0.0;
 
@@ -451,6 +454,9 @@
 #if defined (HAVE_LGAMMAF_R)
       int sgngam;
       result = lgammaf_r (x, &sgngam);
+#elif defined (HAVE_LGAMMAF)
+      result = lgammaf (x);
+      int sgngam = signgam;
 #else
       float sgngam = 0.0f;