[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-06-60-g28ca349

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  28ca34951c313162068768fb80742254dd7af1b6 (commit)
       via  70bf595c72a9bb4a400dc6fdab9a269ccde060dd (commit)
       via  08fd3e4ea1565c8674c837cd9e08b1e24f438d33 (commit)
       via  8dd3a6aae9b37307eef4d48b740cba9cb265444d (commit)
      from  c2e152be334f9e1272db737e2eb5056e67def8d0 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 28ca34951c313162068768fb80742254dd7af1b6
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Aug 2 13:42:38 2014 -0700

    Add some braces to silence the warning from clang about dangling else
    statements.

diff --git a/src/lisp/e_log.c b/src/lisp/e_log.c
index 4404ce1..032f794 100644
--- a/src/lisp/e_log.c
+++ b/src/lisp/e_log.c
@@ -117,8 +117,15 @@ static double zero   =  0.0;
 	k += (i>>20);
 	f = x-1.0;
 	if((0x000fffff&(2+hx))<3) {	/* |f| < 2**-20 */
-	    if(f==zero) if(k==0) return zero;  else {dk=(double)k;
-				 return dk*ln2_hi+dk*ln2_lo;}
+	    if(f==zero) {
+                if(k==0)
+                    return zero;
+                else {
+                    dk=(double)k;
+                    return dk*ln2_hi+dk*ln2_lo;
+                }
+            }
+            
 	    R = f*f*(0.5-0.33333333333333333*f);
 	    if(k==0) return f-R; else {dk=(double)k;
 	    	     return dk*ln2_hi-((R-dk*ln2_lo)-f);}
diff --git a/src/lisp/s_expm1.c b/src/lisp/s_expm1.c
index d6a1827..6e35fd8 100644
--- a/src/lisp/s_expm1.c
+++ b/src/lisp/s_expm1.c
@@ -194,9 +194,10 @@ Q5  =  -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */
 	    e  = (x*(e-c)-c);
 	    e -= hxs;
 	    if(k== -1) return 0.5*(x-e)-0.5;
-	    if(k==1) 
+	    if(k==1) {
 	       	if(x < -0.25) return -2.0*(e-(x+0.5));
 	       	else 	      return  one+2.0*(x-e);
+            }
 	    if (k <= -2 || k>56) {   /* suffice to return exp(x)-1 */
 	        y = one-(e-x);
 		utmp.d = y;

commit 70bf595c72a9bb4a400dc6fdab9a269ccde060dd
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Aug 2 13:39:39 2014 -0700

    Remove the sccsid variable.

diff --git a/src/lisp/e_pow.c b/src/lisp/e_pow.c
index 9dafc26..914d7d9 100644
--- a/src/lisp/e_pow.c
+++ b/src/lisp/e_pow.c
@@ -1,8 +1,3 @@
-
-#ifndef lint
-static  char sccsid[] = "@(#)e_pow.c 1.5 04/04/22 SMI"; 
-#endif
-
 /*
  * ====================================================
  * Copyright (C) 2004 by Sun Microsystems, Inc. All rights reserved.

commit 08fd3e4ea1565c8674c837cd9e08b1e24f438d33
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Aug 2 13:38:58 2014 -0700

    Initialize k to get rid of a compiler warning from clang.
    
    The compiler thinks k might not be initialized  because the if on line
    143 might not be true, leaving t uninitialized.  We know that the
    condition is always true because |x| < -2^-28 in the previous line.

diff --git a/src/lisp/e_exp.c b/src/lisp/e_exp.c
index 4d94a1e..3d84224 100644
--- a/src/lisp/e_exp.c
+++ b/src/lisp/e_exp.c
@@ -106,7 +106,8 @@ P5   =  4.13813679705723846039e-08; /* 0x3E663769, 0x72BEA4D0 */
 #endif
 {
 	double y,hi,lo,c,t;
-	int k,xsb;
+	int k = 0;
+        int xsb;
 	unsigned hx;
 	union { int i[2]; double d; } ux;
 

commit 8dd3a6aae9b37307eef4d48b740cba9cb265444d
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sat Aug 2 13:35:17 2014 -0700

    Initialize t to get rid of a compiler warning from clang.
    
    The compiler thinks t might not be initialized  because the if on line
    90 might not be true, leaving t uninitialized.  We know that the
    condition is always true because |x| < -2^-27 in the previous line.

diff --git a/src/lisp/e_asin.c b/src/lisp/e_asin.c
index 9b476a4..4aa6c63 100644
--- a/src/lisp/e_asin.c
+++ b/src/lisp/e_asin.c
@@ -73,7 +73,8 @@ qS4 =  7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */
 	double x;
 #endif
 {
-	double t,w,p,q,c,r,s;
+	double t = 0;
+        double w,p,q,c,r,s;
 	int hx,ix;
 	union { int i[2]; double d; } ux;
 

-----------------------------------------------------------------------

Summary of changes:
 src/lisp/e_asin.c  |    3 ++-
 src/lisp/e_exp.c   |    3 ++-
 src/lisp/e_log.c   |   11 +++++++++--
 src/lisp/e_pow.c   |    5 -----
 src/lisp/s_expm1.c |    3 ++-
 5 files changed, 15 insertions(+), 10 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp