From owner-svn-src-all@FreeBSD.ORG  Sun Apr  1 15:05:16 2012
Return-Path: <owner-svn-src-all@FreeBSD.ORG>
Delivered-To: svn-src-all@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:4f8:fff6::34])
	by hub.freebsd.org (Postfix) with ESMTP id 13FFE1065672;
	Sun,  1 Apr 2012 15:05:16 +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 F33418FC12;
	Sun,  1 Apr 2012 15:05:15 +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 q31F5Fd1054852;
	Sun, 1 Apr 2012 15:05:15 GMT (envelope-from kevlo@svn.freebsd.org)
Received: (from kevlo@localhost)
	by svn.freebsd.org (8.14.4/8.14.4/Submit) id q31F5Fk4054850;
	Sun, 1 Apr 2012 15:05:15 GMT (envelope-from kevlo@svn.freebsd.org)
Message-Id: <201204011505.q31F5Fk4054850@svn.freebsd.org>
From: Kevin Lo <kevlo@FreeBSD.org>
Date: Sun, 1 Apr 2012 15:05:15 +0000 (UTC)
To: src-committers@freebsd.org, svn-src-all@freebsd.org,
	svn-src-stable@freebsd.org, svn-src-stable-9@freebsd.org
X-SVN-Group: stable-9
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Cc: 
Subject: svn commit: r233759 - stable/9/usr.bin/bc
X-BeenThere: svn-src-all@freebsd.org
X-Mailman-Version: 2.1.5
Precedence: list
List-Id: "SVN commit messages for the entire src tree \(except for &quot;
	user&quot; and &quot; projects&quot; \)" <svn-src-all.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-all>,
	<mailto:svn-src-all-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-src-all>
List-Post: <mailto:svn-src-all@freebsd.org>
List-Help: <mailto:svn-src-all-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-src-all>,
	<mailto:svn-src-all-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Sun, 01 Apr 2012 15:05:16 -0000

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