drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-19 01:13:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

Release calc version 2.11.10.1

Browse Source
This commit is contained in:
Landon Curt Noll
2004-10-22 18:21:40 -07:00
parent a6a37f9cad
commit 64a732b678
7 changed files with 243 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
qtrans.c
View File

@@ -19,8 +19,8 @@
* received a copy with calc; if not, write to Free Software Foundation, Inc.
* 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
*
* @(#) $Revision: 29.5 $
* @(#) $Id: qtrans.c,v 29.5 2004/02/23 14:04:01 chongo Exp $
* @(#) $Revision: 29.6 $
* @(#) $Id: qtrans.c,v 29.6 2004/10/23 00:58:59 chongo Exp $
* @(#) $Source: /usr/local/src/cmd/calc/RCS/qtrans.c,v $
*
* Under source code control: 1990/02/15 01:48:22
@@ -987,16 +987,20 @@ qln(NUMBER *q, NUMBER *epsilon)
}
zfree(pow);
zfree(mul);
qtmp = qalloc(); /* qtmp is to be 2^n * sum / 2^m */
k = zlowbit(sum);
qtmp = qalloc();
sum.sign = neg;
if (k) {
zshift(sum, -k, &qtmp->num);
zfree(sum);
if (k + n >= m) {
zshift(sum, n - m, &qtmp->num);
} else {
qtmp->num = sum;
if (k) {
zshift(sum, -k, &qtmp->num);
zfree(sum);
} else {
qtmp->num = sum;
}
zbitvalue(m - k - n, &qtmp->den);
}
zbitvalue(m - k - n, &qtmp->den);
res = qmappr(qtmp, epsilon, 24L);
qfree(qtmp);
return res;