Skip site navigation (1)Skip section navigation (2)
Date:      Sun, 1 Apr 2012 15:05:15 +0000 (UTC)
From:      Kevin Lo <kevlo@FreeBSD.org>
To:        src-committers@freebsd.org, svn-src-all@freebsd.org, svn-src-stable@freebsd.org, svn-src-stable-9@freebsd.org
Subject:   svn commit: r233759 - stable/9/usr.bin/bc
Message-ID:  <201204011505.q31F5Fk4054850@svn.freebsd.org>

next in thread | raw e-mail | index | archive | help
Author: kevlo
Date: Sun Apr  1 15:05:15 2012
New Revision: 233759
URL: http://svn.freebsd.org/changeset/base/233759

Log:
  MFC r233121:
  Repair function when used with large scales
  
  Submitted by:	AIDA Shinra <shinra at j10n dot org>

Modified:
  stable/9/usr.bin/bc/bc.library
Directory Properties:
  stable/9/usr.bin/   (props changed)

Modified: stable/9/usr.bin/bc/bc.library
==============================================================================
--- stable/9/usr.bin/bc/bc.library	Sun Apr  1 09:38:22 2012	(r233758)
+++ stable/9/usr.bin/bc/bc.library	Sun Apr  1 15:05:15 2012	(r233759)
@@ -48,7 +48,7 @@ define e(x) {
 	t = scale
 	scale = 0
 	if (x > 0) scale = (0.435*x)/1
-	scale = scale + t + 1
+	scale = scale + t + length(scale + t) + 1
 
 	w = 0
 	if (x < 0) {
@@ -120,7 +120,8 @@ define l(x) {
 		f = f*2
 	}
 
-	scale = t + length(f) + length(t + length(f)) + 1
+	scale = 0
+	scale = t + length(f) + length((1.05*(t+length(f))/1)) + 1
 	u = (x - 1)/(x + 1)
 	s = u*u
 	scale = t + 2



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201204011505.q31F5Fk4054850>