From owner-svn-src-head@FreeBSD.ORG  Sun Mar 18 15:34:39 2012
Return-Path: <owner-svn-src-head@FreeBSD.ORG>
Delivered-To: svn-src-head@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
	by hub.freebsd.org (Postfix) with ESMTP id BEECA1065675;
	Sun, 18 Mar 2012 15:34:39 +0000 (UTC)
	(envelope-from kevlo@FreeBSD.org)
Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:4f8:fff6::2c])
	by mx1.freebsd.org (Postfix) with ESMTP id AEBCA8FC0A;
	Sun, 18 Mar 2012 15:34:39 +0000 (UTC)
Received: from svn.freebsd.org (localhost [127.0.0.1])
	by svn.freebsd.org (8.14.4/8.14.4) with ESMTP id q2IFYdYj025172;
	Sun, 18 Mar 2012 15:34:39 GMT (envelope-from kevlo@svn.freebsd.org)
Received: (from kevlo@localhost)
	by svn.freebsd.org (8.14.4/8.14.4/Submit) id q2IFYdte025170;
	Sun, 18 Mar 2012 15:34:39 GMT (envelope-from kevlo@svn.freebsd.org)
Message-Id: <201203181534.q2IFYdte025170@svn.freebsd.org>
From: Kevin Lo <kevlo@FreeBSD.org>
Date: Sun, 18 Mar 2012 15:34:39 +0000 (UTC)
To: src-committers@freebsd.org, svn-src-all@freebsd.org,
	svn-src-head@freebsd.org
X-SVN-Group: head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Cc: 
Subject: svn commit: r233121 - head/usr.bin/bc
X-BeenThere: svn-src-head@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: SVN commit messages for the src tree for head/-current
	<svn-src-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-head>,
	<mailto:svn-src-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-src-head>
List-Post: <mailto:svn-src-head@freebsd.org>
List-Help: <mailto:svn-src-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-head>,
	<mailto:svn-src-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 18 Mar 2012 15:34:39 -0000

Author: kevlo
Date: Sun Mar 18 15:34:39 2012
New Revision: 233121
URL: http://svn.freebsd.org/changeset/base/233121

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

Modified:
  head/usr.bin/bc/bc.library

Modified: head/usr.bin/bc/bc.library
==============================================================================
--- head/usr.bin/bc/bc.library	Sun Mar 18 15:03:02 2012	(r233120)
+++ head/usr.bin/bc/bc.library	Sun Mar 18 15:34:39 2012	(r233121)
@@ -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