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

Raymond Toy rtoy at common-lisp.net
Mon Aug 4 04:58:01 UTC 2014


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  022325ccf101a0e9085f0189c4ec54dc96cef52d (commit)
       via  af7c3d9606ac3995c87611d3d4518430d3b67ebd (commit)
       via  59ad6f5166353a2019b922bfa02716b906008c85 (commit)
      from  4db363eca4f5a2c282f7b46bd1509095bcb6efec (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 022325ccf101a0e9085f0189c4ec54dc96cef52d
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Aug 3 19:07:30 2014 -0700

    Initilize hi and lo to get rid of a compiler warning from gcc 4.4.1 on
    linux that they might be used uninitialized.

diff --git a/src/lisp/e_exp.c b/src/lisp/e_exp.c
index 3d84224..8233bc3 100644
--- a/src/lisp/e_exp.c
+++ b/src/lisp/e_exp.c
@@ -105,7 +105,7 @@ P5   =  4.13813679705723846039e-08; /* 0x3E663769, 0x72BEA4D0 */
 	double x;
 #endif
 {
-	double y,hi,lo,c,t;
+	double y,hi = 0,lo = 0,c,t;
 	int k = 0;
         int xsb;
 	unsigned hx;

commit af7c3d9606ac3995c87611d3d4518430d3b67ebd
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Aug 3 18:53:24 2014 -0700

    Add parens around operands of | to silence a compiler warning with gcc
    4.4.1 on Linux.

diff --git a/src/lisp/e_atan2.c b/src/lisp/e_atan2.c
index 7e177e8..a841ace 100644
--- a/src/lisp/e_atan2.c
+++ b/src/lisp/e_atan2.c
@@ -75,7 +75,7 @@ pi_lo   = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */
 	if(((ix|((lx|-lx)>>31))>0x7ff00000)||
 	   ((iy|((ly|-ly)>>31))>0x7ff00000))	/* x or y is NaN */
 	   return x+y;
-	if((hx-0x3ff00000|lx)==0) return fdlibm_atan(y);   /* x=1.0 */
+	if(((hx-0x3ff00000)|lx)==0) return fdlibm_atan(y);   /* x=1.0 */
 	m = ((hy>>31)&1)|((hx>>30)&2);	/* 2*sign(x)+sign(y) */
 
     /* when y = 0 */

commit 59ad6f5166353a2019b922bfa02716b906008c85
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Aug 3 18:50:44 2014 -0700

    Initialize c to get rid of a compiler warning on Linux with gcc 4.4.1.

diff --git a/src/lisp/s_expm1.c b/src/lisp/s_expm1.c
index 6e35fd8..7431885 100644
--- a/src/lisp/s_expm1.c
+++ b/src/lisp/s_expm1.c
@@ -133,7 +133,7 @@ Q5  =  -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */
 	double x;
 #endif
 {
-	double y,hi,lo,c,t,e,hxs,hfx,r1;
+	double y,hi,lo,c = 0,t,e,hxs,hfx,r1;
 	int k,xsb;
 	unsigned hx;
 	union { int i[2]; double d; } ux;
diff --git a/src/lisp/s_log1p.c b/src/lisp/s_log1p.c
index 87ed927..d8f2cad 100644
--- a/src/lisp/s_log1p.c
+++ b/src/lisp/s_log1p.c
@@ -103,7 +103,7 @@ static double zero = 0.0;
 	double x;
 #endif
 {
-	double hfsq,f,c,s,z,R,u;
+	double hfsq,f,c = 0,s,z,R,u;
 	int k,hx,hu,ax;
 	union { int i[2]; double d; } ux;
 

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

Summary of changes:
 src/lisp/e_atan2.c |    2 +-
 src/lisp/e_exp.c   |    2 +-
 src/lisp/s_expm1.c |    2 +-
 src/lisp/s_log1p.c |    2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list