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@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@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@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@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