Print this page

        

@@ -879,11 +879,11 @@
 /*
  * gamma(x+i) for 0 <= x < 1
  */
 static struct LDouble
 gam_n(int i, long double x) {
-        struct LDouble rr, yy;
+        struct LDouble rr = {0.0L, 0.0L}, yy;
         long double r1, r2, t2, z, xh, xl, yh, yl, zh, z1, z2, zl, x5, wh, wl;
 
         /* compute yy = gamma(x+1) */
         if (x > 0.2845L) {
                 if (x > 0.6374L) {

@@ -1030,11 +1030,11 @@
                 ww = large_gam(x, &m);
                 w = ww.h + ww.l;
                 return (scalbnl(w, m));
         }
 
-        if (hx > 0) {           /* x from 0 to 8 */
+        if (hx > 0) {           /* 0 < x < 8 */
                 i = (int) x;
                 ww = gam_n(i, x - (long double) i);
                 return (ww.h + ww.l);
         }
         /* INDENT OFF */