From: <cli...@li...> - 2008-07-09 19:02:49
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src ChangeLog, 1.6347, 1.6348 NEWS, 1.465, 1.466 realelem.d, 1.37, 1.38 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Wed, 09 Jul 2008 15:31:50 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src ChangeLog, 1.6347, 1.6348 NEWS, 1.465, 1.466 realelem.d, 1.37, 1.38 To: cli...@li... Message-ID: <E1K...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv15086/src Modified Files: ChangeLog NEWS realelem.d Log Message: fix bug #[ 2014262 ]: float/rational comparison underflows (R_R_comp): inhibit floating-point-underflow when converting to a rational Index: NEWS =================================================================== RCS file: /cvsroot/clisp/clisp/src/NEWS,v retrieving revision 1.465 retrieving revision 1.466 diff -u -d -r1.465 -r1.466 --- NEWS 7 Jul 2008 16:00:19 -0000 1.465 +++ NEWS 9 Jul 2008 15:31:48 -0000 1.466 @@ -1,3 +1,10 @@ +Important notes +--------------- + +* Bug fixes: + + Comparison of floats and rationals never underflows. [ 2014262 ] + + 2.46 (2008-07-02) ================= Index: realelem.d =================================================================== RCS file: /cvsroot/clisp/clisp/src/realelem.d,v retrieving revision 1.37 retrieving revision 1.38 diff -u -d -r1.37 -r1.38 --- realelem.d 17 Dec 2007 01:06:39 -0000 1.37 +++ realelem.d 9 Jul 2008 15:31:48 -0000 1.38 @@ -702,7 +702,9 @@ return RA_RA_comp(x,y); else { /* x rational, y Float -> convert x into a float */ pushSTACK(x); pushSTACK(y); + dynamic_bind(S(inhibit_floating_point_underflow),T); var object xf = RA_F_float_F(x,y,false); /* convert x into a float */ + dynamic_unbind(S(inhibit_floating_point_underflow)); if (eq(xf,nullobj)) { /* overflow? */ skipSTACK(1); return RA_RA_comp(popSTACK(),Fixnum_0); } @@ -714,7 +716,9 @@ } else { if (R_rationalp(y)) { /* x Float, y rational -> convert y into a float */ pushSTACK(y); pushSTACK(x); + dynamic_bind(S(inhibit_floating_point_underflow),T); var object yf = RA_F_float_F(y,x,false); /* convert y into a float */ + dynamic_unbind(S(inhibit_floating_point_underflow)); if (eq(yf,nullobj)) { /* overflow? */ skipSTACK(1); return RA_RA_comp(Fixnum_0,popSTACK()); } Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.6347 retrieving revision 1.6348 diff -u -d -r1.6347 -r1.6348 --- ChangeLog 9 Jul 2008 03:05:38 -0000 1.6347 +++ ChangeLog 9 Jul 2008 15:31:42 -0000 1.6348 @@ -1,3 +1,9 @@ +2008-07-09 Sam Steingold <sd...@gn...> + + fix bug #[ 2014262 ]: float/rational comparison underflows + * realelem.d (R_R_comp): inhibit floating-point-underflow when + converting to a rational + 2008-07-08 Sam Steingold <sd...@gn...> * spvw_sigcld.d (end_want_sigcld): avoid the gcc warning: ------------------------------ ------------------------------------------------------------------------- Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW! Studies have shown that voting for your favorite open source project, along with a healthy diet, reduces your potential for chronic lameness and boredom. Vote Now at http://www.sourceforge.net/community/cca08 ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 27, Issue 16 ***************************************** |