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.0t2

Browse Source
This commit is contained in:
Landon Curt Noll
1999-09-24 17:14:22 -07:00
parent bad4535616
commit 4b98d5ff0e
12 changed files with 416 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
zfunc.c
View File

@@ -1522,7 +1522,7 @@ zsqrt(ZVALUE z, ZVALUE *dest, long rnd)
u = (HALF)(s ? BASE1 : 0);
if (k < BASEB) {
A[m1 - 1] = (HALF)(e >> (BASEB - 1));
A[m1 - 2] = (HALF)(e << 1 | (s > 0));
A[m1 - 2] = ((HALF)(e << 1) | (HALF)(s > 0));
A[m1 - 3] = (HALF)(f >> BASEB);
A[m1 - 4] = (HALF)f;
m = m1 - 2;
@@ -1531,7 +1531,7 @@ zsqrt(ZVALUE z, ZVALUE *dest, long rnd)
else {
A[m1 - 1] = 1;
A[m1 - 2] = (HALF)(e >> (BASEB - 1));
A[m1 - 3] = (HALF)(e << 1 | (s > 0));
A[m1 - 3] = ((HALF)(e << 1) | (HALF)(s > 0));
A[m1 - 4] = u;
A[m1 - 5] = (HALF)(f >> BASEB);
A[m1 - 6] = (HALF)f;
@@ -1585,7 +1585,7 @@ zsqrt(ZVALUE z, ZVALUE *dest, long rnd)
if (x & TOPHALF)
a[1] |= 1;
}
*a = (HALF)((x << 1) | (u > 0));
*a = ((HALF)(x << 1) | (HALF)(u > 0));
}
else
*a = u;