Mercurial > octave

comparison liboctave/numeric/lo-specfun.cc @ 21559:6619945e4434

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge stable to default.
author Rik <rik@octave.org>
date Tue, 29 Mar 2016 08:16:09 -0700
parents 35ce775d6115 d42aa6780175
children bcc30b45a225
comparison
equal deleted inserted replaced
21557:f6663c49870c 21559:6619945e4434
485 485
486 #if defined (HAVE_LGAMMA_R) 486 #if defined (HAVE_LGAMMA_R)
487 int sgngam; 487 int sgngam;
488 result = lgamma_r (x, &sgngam); 488 result = lgamma_r (x, &sgngam);
489 #else 489 #else
490 double sgngam; 490 double sgngam = 0.0;
491 491
492 if (xisnan (x)) 492 if (xisnan (x))
493 result = x; 493 result = x;
494 else if ((x <= 0 && D_NINT (x) == x) || xisinf (x)) 494 else if ((x <= 0 && D_NINT (x) == x) || xisinf (x))
495 result = octave_Inf; 495 result = octave_Inf;
557 557
558 #if defined (HAVE_LGAMMAF_R) 558 #if defined (HAVE_LGAMMAF_R)
559 int sgngam; 559 int sgngam;
560 result = lgammaf_r (x, &sgngam); 560 result = lgammaf_r (x, &sgngam);
561 #else 561 #else
562 float sgngam; 562 float sgngam = 0.0f;
563 563
564 if (xisnan (x)) 564 if (xisnan (x))
565 result = x; 565 result = x;
566 else if ((x <= 0 && D_NINT (x) == x) || xisinf (x)) 566 else if ((x <= 0 && D_NINT (x) == x) || xisinf (x))
567 result = octave_Float_Inf; 567 result = octave_Float_Inf;