strtod.c revision 1dc9e472e19acfe6dc7f41e429236e7eef7ceda1
11dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* $NetBSD: strtod.c,v 1.45.2.1 2005/04/19 13:35:54 tron Exp $ */ 21dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 31dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/**************************************************************** 41dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 51dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * The author of this software is David M. Gay. 61dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 71dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Copyright (c) 1991 by AT&T. 81dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 91dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Permission to use, copy, modify, and distribute this software for any 101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * purpose without fee is hereby granted, provided that this entire notice 111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * is included in all copies of any software which is or includes a copy 121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * or modification of this software and in all copies of the supporting 131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * documentation for such software. 141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * THIS SOFTWARE IS BEING PROVIDED "AS IS", WITHOUT ANY EXPRESS OR IMPLIED 161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * WARRANTY. IN PARTICULAR, NEITHER THE AUTHOR NOR AT&T MAKES ANY 171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * REPRESENTATION OR WARRANTY OF ANY KIND CONCERNING THE MERCHANTABILITY 181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * OF THIS SOFTWARE OR ITS FITNESS FOR ANY PARTICULAR PURPOSE. 191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ***************************************************************/ 211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* Please send bug reports to 231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project David M. Gay 241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project AT&T Bell Laboratories, Room 2C-463 251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 600 Mountain Avenue 261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Murray Hill, NJ 07974-2070 271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project U.S.A. 281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project dmg@research.att.com or research!dmg 291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* strtod for IEEE-, VAX-, and IBM-arithmetic machines. 321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * This strtod returns a nearest machine number to the input decimal 341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * string (or sets errno to ERANGE). With IEEE arithmetic, ties are 351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * broken by the IEEE round-even rule. Otherwise ties are broken by 361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * biased rounding (add half and chop). 371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Inspired loosely by William D. Clinger's paper "How to Read Floating 391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Point Numbers Accurately" [Proc. ACM SIGPLAN '90, pp. 92-101]. 401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Modifications: 421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 1. We only require IEEE, IBM, or VAX double-precision 441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * arithmetic (not IEEE double-extended). 451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 2. We get by with floating-point arithmetic in a case that 461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Clinger missed -- when we're computing d * 10^n 471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * for a small integer d and the integer n is not too 481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * much larger than 22 (the maximum integer k for which 491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * we can represent 10^k exactly), we may be able to 501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * compute (d*10^k) * 10^(e-k) with just one roundoff. 511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 3. Rather than a bit-at-a-time adjustment of the binary 521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * result in the hard case, we use floating-point 531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * arithmetic to determine the adjustment to within 541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * one bit; only in really hard cases do we need to 551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * compute a second residual. 561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 4. Because of 3., we don't need a large table of powers of 10 571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * for ten-to-e (just some small tables, e.g. of 10^k 581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * for 0 <= k <= 22). 591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* 621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define IEEE_LITTLE_ENDIAN for IEEE-arithmetic machines where the least 631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * significant byte has the lowest address. 641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define IEEE_BIG_ENDIAN for IEEE-arithmetic machines where the most 651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * significant byte has the lowest address. 661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Long int on machines with 32-bit ints and 64-bit longs. 671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Sudden_Underflow for IEEE-format machines without gradual 681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * underflow (i.e., that flush to zero on underflow). 691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define IBM for IBM mainframe-style floating-point arithmetic. 701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define VAX for VAX-style floating-point arithmetic. 711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Unsigned_Shifts if >> does treats its left operand as unsigned. 721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define No_leftright to omit left-right logic in fast floating-point 731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * computation of dtoa. 741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Check_FLT_ROUNDS if FLT_ROUNDS can assume the values 2 or 3. 751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define RND_PRODQUOT to use rnd_prod and rnd_quot (assembly routines 761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * that use extended-precision instructions to compute rounded 771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * products and quotients) with IBM. 781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define ROUND_BIASED for IEEE-format with biased rounding. 791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Inaccurate_Divide for IEEE-format with correctly rounded 801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * products but inaccurate quotients, e.g., for Intel i860. 811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Just_16 to store 16 bits per 32-bit Long when doing high-precision 821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * integer arithmetic. Whether this speeds things up or slows things 831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * down depends on the machine and the number being converted. 841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define KR_headers for old-style C function headers. 851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Bad_float_h if your system lacks a float.h or if it does not 861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * define some or all of DBL_DIG, DBL_MAX_10_EXP, DBL_MAX_EXP, 871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * FLT_RADIX, FLT_ROUNDS, and DBL_MAX. 881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define MALLOC your_malloc, where your_malloc(n) acts like malloc(n) 891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * if memory is available and otherwise does something you deem 901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * appropriate. If MALLOC is undefined, malloc will be invoked 911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * directly -- and assumed always to succeed. 921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef ANDROID_CHANGES 951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include <pthread.h> 961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define mutex_lock(x) pthread_mutex_lock(x) 971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define mutex_unlock(x) pthread_mutex_unlock(x) 981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include <sys/cdefs.h> 1011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(LIBC_SCCS) && !defined(lint) 1021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project__RCSID("$NetBSD: strtod.c,v 1.45.2.1 2005/04/19 13:35:54 tron Exp $"); 1031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif /* LIBC_SCCS and not lint */ 1041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Unsigned_Shifts 1061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(__m68k__) || defined(__sparc__) || defined(__i386__) || \ 1071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project defined(__mips__) || defined(__ns32k__) || defined(__alpha__) || \ 1081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project defined(__powerpc__) || defined(__sh__) || defined(__x86_64__) || \ 1091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project defined(__hppa__) || \ 1101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (defined(__arm__) && defined(__VFP_FP__)) 1111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include <endian.h> 1121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if BYTE_ORDER == BIG_ENDIAN 1131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define IEEE_BIG_ENDIAN 1141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define IEEE_LITTLE_ENDIAN 1161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(__arm__) && !defined(__VFP_FP__) 1201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* 1211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Although the CPU is little endian the FP has different 1221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * byte and word endianness. The byte order is still little endian 1231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * but the word order is big endian. 1241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 1251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define IEEE_BIG_ENDIAN 1261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef __vax__ 1291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define VAX 1301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(__hppa__) || defined(__mips__) || defined(__sh__) 1331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define NAN_WORD0 0x7ff40000 1341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define NAN_WORD0 0x7ff80000 1361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define NAN_WORD1 0 1381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Long int32_t 1401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define ULong u_int32_t 1411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 1431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "stdio.h" 1441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bug(x) {fprintf(stderr, "%s\n", x); exit(1);} 1451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef __cplusplus 1481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "malloc.h" 1491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "memory.h" 1501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef KR_headers 1521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "stdlib.h" 1531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "string.h" 1541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef ANDROID_CHANGES 1551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "locale.h" 1561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif /* ANDROID_CHANGES */ 1571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "malloc.h" 1591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "memory.h" 1601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef ANDROID_CHANGES 1631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "extern.h" 1641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "reentrant.h" 1651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif /* ANDROID_CHANGES */ 1661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef MALLOC 1681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 1691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern char *MALLOC(); 1701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern void *MALLOC(size_t); 1721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define MALLOC malloc 1751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "ctype.h" 1781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "errno.h" 1791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "float.h" 1801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef __MATH_H__ 1821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#include "math.h" 1831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef __cplusplus 1861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern "C" { 1871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef CONST 1901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 1911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define CONST /* blank */ 1921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 1931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define CONST const 1941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 1961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Unsigned_Shifts 1981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Sign_Extend(a,b) if (b < 0) a |= 0xffff0000; 1991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 2001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Sign_Extend(a,b) /*no-op*/ 2011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 2021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(IEEE_LITTLE_ENDIAN) + defined(IEEE_BIG_ENDIAN) + defined(VAX) + \ 2041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project defined(IBM) != 1 2051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source ProjectExactly one of IEEE_LITTLE_ENDIAN IEEE_BIG_ENDIAN, VAX, or 2061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source ProjectIBM should be defined. 2071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 2081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projecttypedef union { 2101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project double d; 2111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong ul[2]; 2121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project} _double; 2131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define value(x) ((x).d) 2141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IEEE_LITTLE_ENDIAN 2151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define word0(x) ((x).ul[1]) 2161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define word1(x) ((x).ul[0]) 2171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 2181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define word0(x) ((x).ul[0]) 2191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define word1(x) ((x).ul[1]) 2201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 2211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* The following definition of Storeinc is appropriate for MIPS processors. 2231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * An alternative that might be better on some machines is 2241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * #define Storeinc(a,b,c) (*a++ = b << 16 | c & 0xffff) 2251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 2261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(IEEE_LITTLE_ENDIAN) + defined(VAX) + defined(__arm__) 2271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Storeinc(a,b,c) \ 2281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (((u_short *)(void *)a)[1] = \ 2291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (u_short)b, ((u_short *)(void *)a)[0] = (u_short)c, a++) 2301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 2311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Storeinc(a,b,c) \ 2321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (((u_short *)(void *)a)[0] = \ 2331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (u_short)b, ((u_short *)(void *)a)[1] = (u_short)c, a++) 2341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 2351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* #define P DBL_MANT_DIG */ 2371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* Ten_pmax = floor(P*log(2)/log(5)) */ 2381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* Bletch = (highest power of 2 < DBL_MAX_10_EXP) / 16 */ 2391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* Quick_max = floor((P-1)*log(FLT_RADIX)/log(10) - 1) */ 2401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* Int_max = floor(P*log(FLT_RADIX)/log(10) - 1) */ 2411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(IEEE_LITTLE_ENDIAN) + defined(IEEE_BIG_ENDIAN) 2431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_shift 20 2441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_shift1 20 2451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_msk1 0x100000 2461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_msk11 0x100000 2471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_mask 0x7ff00000 2481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define P 53 2491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bias 1023 2501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define IEEE_Arith 2511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Emin (-1022) 2521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_1 0x3ff00000 2531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_11 0x3ff00000 2541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Ebits 11 2551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Frac_mask 0xfffff 2561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Frac_mask1 0xfffff 2571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Ten_pmax 22 2581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bletch 0x10 2591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bndry_mask 0xfffff 2601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bndry_mask1 0xfffff 2611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define LSB 1 2621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Sign_bit 0x80000000 2631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Log2P 1 2641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Tiny0 0 2651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Tiny1 1 2661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Quick_max 14 2671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Int_max 14 2681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Infinite(x) (word0(x) == 0x7ff00000) /* sufficient test for here */ 2691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 2701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#undef Sudden_Underflow 2711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Sudden_Underflow 2721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 2731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_shift 24 2741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_shift1 24 2751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_msk1 0x1000000 2761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_msk11 0x1000000 2771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_mask 0x7f000000 2781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define P 14 2791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bias 65 2801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_1 0x41000000 2811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_11 0x41000000 2821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Ebits 8 /* exponent has 7 bits, but 8 is the right value in b2d */ 2831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Frac_mask 0xffffff 2841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Frac_mask1 0xffffff 2851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bletch 4 2861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Ten_pmax 22 2871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bndry_mask 0xefffff 2881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bndry_mask1 0xffffff 2891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define LSB 1 2901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Sign_bit 0x80000000 2911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Log2P 4 2921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Tiny0 0x100000 2931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Tiny1 0 2941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Quick_max 14 2951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Int_max 15 2961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else /* VAX */ 2971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_shift 23 2981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_shift1 7 2991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_msk1 0x80 3001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_msk11 0x800000 3011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_mask 0x7f80 3021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define P 56 3031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bias 129 3041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_1 0x40800000 3051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Exp_11 0x4080 3061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Ebits 8 3071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Frac_mask 0x7fffff 3081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Frac_mask1 0xffff007f 3091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Ten_pmax 24 3101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bletch 2 3111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bndry_mask 0xffff007f 3121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bndry_mask1 0xffff007f 3131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define LSB 0x10000 3141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Sign_bit 0x8000 3151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Log2P 1 3161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Tiny0 0x80 3171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Tiny1 0 3181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Quick_max 15 3191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Int_max 15 3201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef IEEE_Arith 3241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define ROUND_BIASED 3251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef RND_PRODQUOT 3281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define rounded_product(a,b) a = rnd_prod(a, b) 3291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define rounded_quotient(a,b) a = rnd_quot(a, b) 3301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 3311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern double rnd_prod(), rnd_quot(); 3321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 3331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern double rnd_prod(double, double), rnd_quot(double, double); 3341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 3361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define rounded_product(a,b) a *= b 3371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define rounded_quotient(a,b) a /= b 3381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1)) 3411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Big1 0xffffffff 3421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Just_16 3441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* When Pack_32 is not defined, we store 16 bits per 32-bit Long. 3451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * This makes some inner loops simpler and sometimes saves work 3461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * during multiplications, but it often seems to make things slightly 3471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * slower. Hence the default is now to store 32 bits per Long. 3481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 3491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Pack_32 3501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Pack_32 3511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Kmax 15 3551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef __cplusplus 3571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern "C" double strtod(const char *s00, char **se); 3581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectextern "C" char *__dtoa(double d, int mode, int ndigits, 3591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int *decpt, int *sign, char **rve); 3601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project struct 3631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source ProjectBigint { 3641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project struct Bigint *next; 3651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int k, maxwds, sign, wds; 3661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong x[1]; 3671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project }; 3681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project typedef struct Bigint Bigint; 3701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint *freelist[Kmax+1]; 3721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef ANDROID_CHANGES 3741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static pthread_mutex_t freelist_mutex = PTHREAD_MUTEX_INITIALIZER; 3751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 3761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef _REENTRANT 3771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static mutex_t freelist_mutex = MUTEX_INITIALIZER; 3781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 3821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source ProjectBalloc 3831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 3841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (k) int k; 3851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 3861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (int k) 3871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 3881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 3891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int x; 3901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *rv; 3911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mutex_lock(&freelist_mutex); 3931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((rv = freelist[k]) != NULL) { 3951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project freelist[k] = rv->next; 3961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 3971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 3981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = 1 << k; 3991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project rv = (Bigint *)MALLOC(sizeof(Bigint) + (x-1)*sizeof(Long)); 4001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project rv->k = k; 4011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project rv->maxwds = x; 4021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project rv->sign = rv->wds = 0; 4041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mutex_unlock(&freelist_mutex); 4061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return rv; 4081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static void 4111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source ProjectBfree 4121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 4131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (v) Bigint *v; 4141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 4151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *v) 4161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 4171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 4181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (v) { 4191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mutex_lock(&freelist_mutex); 4201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project v->next = freelist[v->k]; 4221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project freelist[v->k] = v; 4231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mutex_unlock(&freelist_mutex); 4251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define Bcopy(x,y) memcpy(&x->sign, &y->sign, \ 4291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y->wds*sizeof(Long) + 2*sizeof(int)) 4301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 4321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectmultadd 4331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 4341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (b, m, a) Bigint *b; int m, a; 4351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 4361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *b, int m, int a) /* multiply by m and add a */ 4371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 4381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 4391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int i, wds; 4401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *x, y; 4411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 4421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong xi, z; 4431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 4441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b1; 4451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wds = b->wds; 4471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = b->x; 4481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 0; 4491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 4501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 4511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xi = *x; 4521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = (xi & 0xffff) * m + a; 4531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (xi >> 16) * m + (y >> 16); 4541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project a = (int)(z >> 16); 4551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x++ = (z << 16) + (y & 0xffff); 4561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 4571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = *x * m + a; 4581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project a = (int)(y >> 16); 4591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x++ = y & 0xffff; 4601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 4611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(++i < wds); 4631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (a) { 4641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (wds >= b->maxwds) { 4651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b1 = Balloc(b->k+1); 4661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bcopy(b1, b); 4671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(b); 4681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = b1; 4691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->x[wds++] = a; 4711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = wds; 4721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b; 4741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 4751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 4771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projects2b 4781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 4791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (s, nd0, nd, y9) CONST char *s; int nd0, nd; ULong y9; 4801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 4811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (CONST char *s, int nd0, int nd, ULong y9) 4821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 4831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 4841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b; 4851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int i, k; 4861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long x, y; 4871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = (nd + 8) / 9; 4891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(k = 0, y = 1; x > y; y <<= 1, k++) ; 4901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 4911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = Balloc(k); 4921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->x[0] = y9; 4931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = 1; 4941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 4951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = Balloc(k+1); 4961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->x[0] = y9 & 0xffff; 4971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = (b->x[1] = y9 >> 16) ? 2 : 1; 4981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 4991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 5001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 9; 5011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (9 < nd0) { 5021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s += 9; 5031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do b = multadd(b, 10, *s++ - '0'); 5041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(++i < nd0); 5051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s++; 5061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 5081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s += 10; 5091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(; i < nd; i++) 5101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = multadd(b, 10, *s++ - '0'); 5111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b; 5121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 5141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static int 5151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projecthi0bits 5161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 5171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (x) ULong x; 5181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 5191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (ULong x) 5201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 5211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 5221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int k = 0; 5231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 5241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xffff0000)) { 5251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = 16; 5261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x <<= 16; 5271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xff000000)) { 5291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 8; 5301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x <<= 8; 5311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xf0000000)) { 5331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 4; 5341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x <<= 4; 5351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xc0000000)) { 5371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 2; 5381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x <<= 2; 5391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0x80000000)) { 5411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k++; 5421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0x40000000)) 5431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 32; 5441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return k; 5461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 5481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static int 5491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectlo0bits 5501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 5511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (y) ULong *y; 5521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 5531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (ULong *y) 5541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 5551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 5561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int k; 5571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong x = *y; 5581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 5591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (x & 7) { 5601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (x & 1) 5611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 0; 5621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (x & 2) { 5631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *y = x >> 1; 5641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 1; 5651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *y = x >> 2; 5671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 2; 5681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = 0; 5701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xffff)) { 5711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = 16; 5721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x >>= 16; 5731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xff)) { 5751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 8; 5761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x >>= 8; 5771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0xf)) { 5791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 4; 5801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x >>= 4; 5811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 0x3)) { 5831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 2; 5841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x >>= 2; 5851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(x & 1)) { 5871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k++; 5881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x >>= 1; 5891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!x & 1) 5901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 32; 5911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *y = x; 5931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return k; 5941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 5951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 5961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 5971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projecti2b 5981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 5991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (i) int i; 6001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 6011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (int i) 6021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 6031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 6041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b; 6051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 6061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = Balloc(1); 6071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->x[0] = i; 6081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = 1; 6091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b; 6101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 6121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 6131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectmult 6141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 6151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (a, b) Bigint *a, *b; 6161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 6171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *a, Bigint *b) 6181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 6191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 6201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *c; 6211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int k, wa, wb, wc; 6221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong carry, y, z; 6231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *x, *xa, *xae, *xb, *xbe, *xc, *xc0; 6241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 6251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong z2; 6261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 6271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 6281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (a->wds < b->wds) { 6291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = a; 6301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project a = b; 6311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = c; 6321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = a->k; 6341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wa = a->wds; 6351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wb = b->wds; 6361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wc = wa + wb; 6371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (wc > a->maxwds) 6381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k++; 6391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = Balloc(k); 6401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(x = c->x, xa = x + wc; x < xa; x++) 6411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x = 0; 6421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xa = a->x; 6431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xae = xa + wa; 6441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xb = b->x; 6451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xbe = xb + wb; 6461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xc0 = c->x; 6471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 6481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(; xb < xbe; xb++, xc0++) { 6491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((y = *xb & 0xffff) != 0) { 6501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = xa; 6511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xc = xc0; 6521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = 0; 6531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 6541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (*x & 0xffff) * y + (*xc & 0xffff) + carry; 6551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = z >> 16; 6561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z2 = (*x++ >> 16) * y + (*xc >> 16) + carry; 6571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = z2 >> 16; 6581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Storeinc(xc, z2, z); 6591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(x < xae); 6611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *xc = carry; 6621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((y = *xb >> 16) != 0) { 6641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = xa; 6651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xc = xc0; 6661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = 0; 6671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z2 = *xc; 6681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 6691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (*x & 0xffff) * y + (*xc >> 16) + carry; 6701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = z >> 16; 6711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Storeinc(xc, z, z2); 6721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z2 = (*x++ >> 16) * y + (*xc & 0xffff) + carry; 6731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = z2 >> 16; 6741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(x < xae); 6761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *xc = z2; 6771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 6801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(; xb < xbe; xc0++) { 6811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (y = *xb++) { 6821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = xa; 6831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xc = xc0; 6841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = 0; 6851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 6861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = *x++ * y + *xc + carry; 6871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = z >> 16; 6881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *xc++ = z & 0xffff; 6891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(x < xae); 6911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *xc = carry; 6921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 6951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(xc0 = c->x, xc = xc0 + wc; wc > 0 && !*--xc; --wc) ; 6961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c->wds = wc; 6971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return c; 6981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 6991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 7001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint *p5s; 7011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 7021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 7031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectpow5mult 7041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 7051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (b, k) Bigint *b; int k; 7061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 7071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *b, int k) 7081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 7091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 7101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b1, *p5, *p51; 7111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int i; 7121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static const int p05[3] = { 5, 25, 125 }; 7131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 7141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((i = k & 3) != 0) 7151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = multadd(b, p05[i-1], 0); 7161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 7171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(k = (unsigned int) k >> 2)) 7181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b; 7191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(p5 = p5s)) { 7201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* first time */ 7211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project p5 = p5s = i2b(625); 7221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project p5->next = 0; 7231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(;;) { 7251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k & 1) { 7261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b1 = mult(b, p5); 7271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(b); 7281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = b1; 7291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(k = (unsigned int) k >> 1)) 7311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 7321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(p51 = p5->next)) { 7331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project p51 = p5->next = mult(p5,p5); 7341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project p51->next = 0; 7351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project p5 = p51; 7371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b; 7391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 7411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 7421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectlshift 7431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 7441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (b, k) Bigint *b; int k; 7451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 7461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *b, int k) 7471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 7481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 7491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int i, k1, n, n1; 7501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b1; 7511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *x, *x1, *xe, z; 7521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 7531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 7541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project n = (unsigned int)k >> 5; 7551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 7561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project n = (unsigned int)k >> 4; 7571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 7581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k1 = b->k; 7591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project n1 = n + b->wds + 1; 7601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = b->maxwds; n1 > i; i <<= 1) 7611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k1++; 7621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b1 = Balloc(k1); 7631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x1 = b1->x; 7641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 0; i < n; i++) 7651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x1++ = 0; 7661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = b->x; 7671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xe = x + b->wds; 7681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 7691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k &= 0x1f) { 7701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k1 = 32 - k; 7711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = 0; 7721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 7731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x1++ = *x << k | z; 7741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = *x++ >> k1; 7751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(x < xe); 7771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((*x1 = z) != 0) 7781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ++n1; 7791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 7811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k &= 0xf) { 7821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k1 = 16 - k; 7831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = 0; 7841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 7851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x1++ = *x << k & 0xffff | z; 7861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = *x++ >> k1; 7871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(x < xe); 7891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*x1 = z) 7901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ++n1; 7911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 7921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 7931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else do 7941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *x1++ = *x++; 7951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(x < xe); 7961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b1->wds = n1 - 1; 7971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(b); 7981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b1; 7991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 8011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static int 8021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectcmp 8031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 8041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (a, b) Bigint *a, *b; 8051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 8061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *a, Bigint *b) 8071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 8081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 8091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *xa, *xa0, *xb, *xb0; 8101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int i, j; 8111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 8121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = a->wds; 8131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = b->wds; 8141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 8151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i > 1 && !a->x[i-1]) 8161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bug("cmp called with a->x[a->wds-1] == 0"); 8171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j > 1 && !b->x[j-1]) 8181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bug("cmp called with b->x[b->wds-1] == 0"); 8191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 8201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i -= j) 8211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return i; 8221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xa0 = a->x; 8231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xa = xa0 + j; 8241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xb0 = b->x; 8251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xb = xb0 + j; 8261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(;;) { 8271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*--xa != *--xb) 8281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return *xa < *xb ? -1 : 1; 8291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (xa <= xa0) 8301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 8311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 0; 8331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 8351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 8361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectdiff 8371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 8381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (a, b) Bigint *a, *b; 8391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 8401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *a, Bigint *b) 8411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 8421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 8431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *c; 8441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int i, wa, wb; 8451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long borrow, y; /* We need signed shifts here. */ 8461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *xa, *xae, *xb, *xbe, *xc; 8471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 8481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long z; 8491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 8501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 8511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = cmp(a,b); 8521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!i) { 8531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = Balloc(0); 8541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c->wds = 1; 8551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c->x[0] = 0; 8561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return c; 8571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i < 0) { 8591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = a; 8601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project a = b; 8611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = c; 8621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 1; 8631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 8651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 0; 8661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = Balloc(a->k); 8671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c->sign = i; 8681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wa = a->wds; 8691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xa = a->x; 8701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xae = xa + wa; 8711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wb = b->wds; 8721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xb = b->x; 8731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xbe = xb + wb; 8741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xc = c->x; 8751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = 0; 8761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 8771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 8781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = (*xa & 0xffff) - (*xb & 0xffff) + borrow; 8791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)y >> 16; 8801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 8811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (*xa++ >> 16) - (*xb++ >> 16) + borrow; 8821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)z >> 16; 8831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, z); 8841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Storeinc(xc, z, y); 8851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(xb < xbe); 8871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(xa < xae) { 8881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = (*xa & 0xffff) + borrow; 8891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)y >> 16; 8901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 8911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (*xa++ >> 16) + borrow; 8921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)z >> 16; 8931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, z); 8941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Storeinc(xc, z, y); 8951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 8961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 8971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 8981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = *xa++ - *xb++ + borrow; 8991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = y >> 16; 9001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 9011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *xc++ = y & 0xffff; 9021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(xb < xbe); 9041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(xa < xae) { 9051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = *xa++ + borrow; 9061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = y >> 16; 9071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 9081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *xc++ = y & 0xffff; 9091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(!*--xc) 9121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project wa--; 9131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c->wds = wa; 9141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return c; 9151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 9171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static double 9181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectulp 9191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 9201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (_x) double _x; 9211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 9221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (double _x) 9231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 9251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double x; 9261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long L; 9271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double a; 9281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 9291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(x) = _x; 9301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1; 9311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 9321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (L > 0) { 9331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 9351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L |= Exp_msk1 >> 4; 9361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(a) = L; 9381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(a) = 0; 9391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 9401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 9421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = (ULong)-L >> Exp_shift; 9431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (L < Exp_shift) { 9441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(a) = 0x80000 >> L; 9451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(a) = 0; 9461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 9481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(a) = 0; 9491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L -= Exp_shift; 9501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(a) = L >= 31 ? 1 : 1 << (31 - L); 9511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return value(a); 9551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 9571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static double 9581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectb2d 9591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 9601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (a, e) Bigint *a; int *e; 9611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 9621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *a, int *e) 9631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 9651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *xa, *xa0, w, y, z; 9661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int k; 9671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double d; 9681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 9691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong d0, d1; 9701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 9711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define d0 word0(d) 9721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define d1 word1(d) 9731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 9751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xa0 = a->x; 9761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project xa = xa0 + a->wds; 9771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = *--xa; 9781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 9791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!y) Bug("zero y in b2d"); 9801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 9811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = hi0bits(y); 9821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *e = 32 - k; 9831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 9841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k < Ebits) { 9851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 = Exp_1 | y >> (Ebits - k); 9861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project w = xa > xa0 ? *--xa : 0; 9871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d1 = y << ((32-Ebits) + k) | w >> (Ebits - k); 9881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret_d; 9891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = xa > xa0 ? *--xa : 0; 9911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k -= Ebits) { 9921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 = Exp_1 | y << k | z >> (32 - k); 9931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = xa > xa0 ? *--xa : 0; 9941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d1 = z << k | y >> (32 - k); 9951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 9961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 9971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 = Exp_1 | y; 9981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d1 = z; 9991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k < Ebits + 16) { 10021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = xa > xa0 ? *--xa : 0; 10031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 = Exp_1 | y << k - Ebits | z >> Ebits + 16 - k; 10041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project w = xa > xa0 ? *--xa : 0; 10051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = xa > xa0 ? *--xa : 0; 10061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d1 = z << k + 16 - Ebits | w << k - Ebits | y >> 16 + Ebits - k; 10071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret_d; 10081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = xa > xa0 ? *--xa : 0; 10101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project w = xa > xa0 ? *--xa : 0; 10111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k -= Ebits + 16; 10121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 = Exp_1 | y << k + 16 | z << k | w >> 16 - k; 10131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = xa > xa0 ? *--xa : 0; 10141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d1 = w << k + 16 | y << k; 10151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ret_d: 10171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 10181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(d) = d0 >> 16 | d0 << 16; 10191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(d) = d1 >> 16 | d1 << 16; 10201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#undef d0 10221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#undef d1 10231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return value(d); 10251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 10271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static Bigint * 10281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectd2b 10291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 10301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (_d, e, bits) double d; int *e, *bits; 10311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (double _d, int *e, int *bits) 10331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 10351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b; 10361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int de, i, k; 10371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *x, y, z; 10381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double d; 10391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 10401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong d0, d1; 10411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 10431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) = _d; 10441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 10451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 = word0(d) >> 16 | word0(d) << 16; 10461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d1 = word1(d) >> 16 | word1(d) << 16; 10471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define d0 word0(d) 10491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define d1 word1(d) 10501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 10521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 10531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = Balloc(1); 10541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = Balloc(2); 10561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = b->x; 10581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 10591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = d0 & Frac_mask; 10601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project d0 &= 0x7fffffff; /* clear sign bit, which we ignore */ 10611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Sudden_Underflow 10621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project de = (int)(d0 >> Exp_shift); 10631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef IBM 10641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z |= Exp_msk11; 10651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((de = (int)(d0 >> Exp_shift)) != 0) 10681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z |= Exp_msk1; 10691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 10711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((y = d1) != 0) { 10721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((k = lo0bits(&y)) != 0) { 10731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = y | z << (32 - k); 10741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z >>= k; 10751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 10771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = y; 10781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = b->wds = (x[1] = z) ? 2 : 1; 10791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 10811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 10821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!z) 10831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bug("Zero passed to d2b"); 10841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 10851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = lo0bits(&z); 10861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = z; 10871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = b->wds = 1; 10881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 32; 10891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 10911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (y = d1) { 10921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k = lo0bits(&y)) 10931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k >= 16) { 10941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = y | z << 32 - k & 0xffff; 10951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[1] = z >> k - 16 & 0xffff; 10961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[2] = z >> k; 10971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 2; 10981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 10991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = y & 0xffff; 11011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[1] = y >> 16 | z << 16 - k & 0xffff; 11021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[2] = z >> k & 0xffff; 11031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[3] = z >> k+16; 11041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 3; 11051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = y & 0xffff; 11081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[1] = y >> 16; 11091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[2] = z & 0xffff; 11101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[3] = z >> 16; 11111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 3; 11121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 11161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!z) 11171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bug("Zero passed to d2b"); 11181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = lo0bits(&z); 11201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k >= 16) { 11211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = z; 11221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 0; 11231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[0] = z & 0xffff; 11261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x[1] = z >> 16; 11271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 1; 11281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k += 32; 11301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(!x[i]) 11321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project --i; 11331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = i + 1; 11341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 11361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (de) { 11371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 11391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *e = (de - Bias - (P-1) << 2) + k; 11401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask); 11411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 11421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *e = de - Bias - (P-1) + k; 11431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *bits = P - k; 11441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 11461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *e = de - Bias - (P-1) + 1 + k; 11491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 11501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *bits = 32*i - hi0bits(x[i-1]); 11511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 11521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *bits = (i+2)*16 - hi0bits(x[i]); 11531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return b; 11571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#undef d0 11591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#undef d1 11601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 11611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static double 11621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectratio 11631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 11641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (a, b) Bigint *a, *b; 11651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 11661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *a, Bigint *b) 11671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 11691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double da, db; 11701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int k, ka, kb; 11711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 11721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(da) = b2d(a, &ka); 11731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(db) = b2d(b, &kb); 11741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 11751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = ka - kb + 32*(a->wds - b->wds); 11761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 11771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = ka - kb + 16*(a->wds - b->wds); 11781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 11801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k > 0) { 11811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(da) += (k >> 2)*Exp_msk1; 11821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k &= 3) 11831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project da *= 1 << k; 11841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = -k; 11871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(db) += (k >> 2)*Exp_msk1; 11881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k &= 3) 11891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project db *= 1 << k; 11901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 11921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k > 0) 11931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(da) += k*Exp_msk1; 11941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 11951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = -k; 11961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(db) += k*Exp_msk1; 11971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 11981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 11991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return value(da) / value(db); 12001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 12011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double 12031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projecttens[] = { 12041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1e0, 1e1, 1e2, 1e3, 1e4, 1e5, 1e6, 1e7, 1e8, 1e9, 12051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1e10, 1e11, 1e12, 1e13, 1e14, 1e15, 1e16, 1e17, 1e18, 1e19, 12061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1e20, 1e21, 1e22 12071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 12081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project , 1e23, 1e24 12091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 12101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project }; 12111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IEEE_Arith 12131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double bigtens[] = { 1e16, 1e32, 1e64, 1e128, 1e256 }; 12141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double tinytens[] = { 1e-16, 1e-32, 1e-64, 1e-128, 1e-256 }; 12151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define n_bigtens 5 12161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 12171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 12181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double bigtens[] = { 1e16, 1e32, 1e64 }; 12191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double tinytens[] = { 1e-16, 1e-32, 1e-64 }; 12201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define n_bigtens 3 12211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 12221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double bigtens[] = { 1e16, 1e32 }; 12231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstatic CONST double tinytens[] = { 1e-16, 1e-32 }; 12241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#define n_bigtens 2 12251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 12261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 12271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project double 12291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectstrtod 12301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 12311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (s00, se) CONST char *s00; char **se; 12321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 12331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (CONST char *s00, char **se) 12341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 12351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 12361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int bb2, bb5, bbe, bd2, bd5, bbbits, bs2, c, dsign, 12371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e, e1, esign, i, j, k, nd, nd0, nf, nz, nz0, sign; 12381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project CONST char *s, *s0, *s1; 12391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project double aadj, aadj1, adj; 12401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double rv, rv0; 12411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long L; 12421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong y, z; 12431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *bb1, *bd0; 12441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *bb = NULL, *bd = NULL, *bs = NULL, *delta = NULL;/* pacify gcc */ 12451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef ANDROID_CHANGES 12471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project CONST char decimal_point = '.'; 12481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else /* ANDROID_CHANGES */ 12491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef KR_headers 12501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project CONST char decimal_point = localeconv()->decimal_point[0]; 12511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 12521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project CONST char decimal_point = '.'; 12531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 12541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif /* ANDROID_CHANGES */ 12561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project sign = nz0 = nz = 0; 12581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = 0.; 12591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(s = s00; isspace((unsigned char) *s); s++) 12621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ; 12631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*s == '-') { 12651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project sign = 1; 12661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s++; 12671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } else if (*s == '+') { 12681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s++; 12691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 12701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*s == '\0') { 12721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s00; 12731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 12741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 12751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* "INF" or "INFINITY" */ 12771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (tolower((unsigned char)*s) == 'i' && strncasecmp(s, "inf", 3) == 0) { 12781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (strncasecmp(s + 3, "inity", 5) == 0) 12791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s += 8; 12801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 12811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s += 3; 12821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = HUGE_VAL; 12841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 12851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 12861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IEEE_Arith 12881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* "NAN" or "NAN(n-char-sequence-opt)" */ 12891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (tolower((unsigned char)*s) == 'n' && strncasecmp(s, "nan", 3) == 0) { 12901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Build a quiet NaN. */ 12911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = NAN_WORD0; 12921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = NAN_WORD1; 12931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s+= 3; 12941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 12951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Don't interpret (n-char-sequence-opt), for now. */ 12961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*s == '(') { 12971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0 = s; 12981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for (s++; *s != ')' && *s != '\0'; s++) 12991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ; 13001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*s == ')') 13011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s++; /* Skip over closing paren ... */ 13021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 13031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s0; /* ... otherwise go back. */ 13041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 13061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 13071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 13091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 13101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (*s == '0') { 13111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nz0 = 1; 13121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(*++s == '0') ; 13131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!*s) 13141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 13151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0 = s; 13171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = z = 0; 13181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(nd = nf = 0; (c = *s) >= '0' && c <= '9'; nd++, s++) 13191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (nd < 9) 13201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = 10*y + c - '0'; 13211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (nd < 16) 13221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = 10*z + c - '0'; 13231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nd0 = nd; 13241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (c == decimal_point) { 13251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = *++s; 13261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!nd) { 13271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(; c == '0'; c = *++s) 13281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nz++; 13291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (c > '0' && c <= '9') { 13301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0 = s; 13311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nf += nz; 13321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nz = 0; 13331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto have_dig; 13341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto dig_done; 13361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(; c >= '0' && c <= '9'; c = *++s) { 13381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project have_dig: 13391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nz++; 13401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (c -= '0') { 13411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nf += nz; 13421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 1; i < nz; i++) 13431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (nd++ < 9) 13441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y *= 10; 13451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (nd <= DBL_DIG + 1) 13461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z *= 10; 13471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (nd++ < 9) 13481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = 10*y + c; 13491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (nd <= DBL_DIG + 1) 13501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = 10*z + c; 13511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nz = 0; 13521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project dig_done: 13561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e = 0; 13571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (c == 'e' || c == 'E') { 13581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!nd && !nz && !nz0) { 13591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s00; 13601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 13611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s00 = s; 13631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project esign = 0; 13641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project switch(c = *++s) { 13651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case '-': 13661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project esign = 1; 13671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* FALLTHROUGH */ 13681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case '+': 13691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = *++s; 13701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (c >= '0' && c <= '9') { 13721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(c == '0') 13731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project c = *++s; 13741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (c > '0' && c <= '9') { 13751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = c - '0'; 13761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s1 = s; 13771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while((c = *++s) >= '0' && c <= '9') 13781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = 10*L + c - '0'; 13791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (s - s1 > 8 || L > 19999) 13801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Avoid confusion from exponents 13811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * so large that e might overflow. 13821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 13831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e = 19999; /* safe for 16 bit ints */ 13841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 13851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e = (int)L; 13861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (esign) 13871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e = -e; 13881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 13901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e = 0; 13911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 13931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s00; 13941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 13951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!nd) { 13961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!nz && !nz0) 13971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s00; 13981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 13991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e1 = e -= nf; 14011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 14021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Now we have nd0 digits, starting at s0, followed by a 14031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * decimal point, followed by nd-nd0 digits. The number we're 14041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * after is the integer represented by those digits times 14051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 10**e */ 14061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 14071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!nd0) 14081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project nd0 = nd; 14091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = nd < DBL_DIG + 1 ? nd : DBL_DIG + 1; 14101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = y; 14111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k > 9) 14121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = tens[k - 9] * value(rv) + z; 14131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd0 = 0; 14141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (nd <= DBL_DIG 14151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef RND_PRODQUOT 14161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project && FLT_ROUNDS == 1 14171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 14181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ) { 14191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!e) 14201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 14211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e > 0) { 14221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e <= Ten_pmax) { 14231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 14241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto vax_ovfl_check; 14251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 14261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* value(rv) = */ rounded_product(value(rv), 14271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project tens[e]); 14281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 14291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 14301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = DBL_DIG - nd; 14321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e <= Ten_pmax + i) { 14331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* A fancier test would sometimes let us do 14341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * this for larger i values. 14351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 14361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e -= i; 14371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= tens[i]; 14381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef VAX 14391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* VAX exponent range is so narrow we must 14401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * worry about overflow here... 14411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 14421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project vax_ovfl_check: 14431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) -= P*Exp_msk1; 14441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* value(rv) = */ rounded_product(value(rv), 14451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project tens[e]); 14461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(rv) & Exp_mask) 14471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project > Exp_msk1*(DBL_MAX_EXP+Bias-1-P)) 14481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ovfl; 14491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) += P*Exp_msk1; 14501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 14511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* value(rv) = */ rounded_product(value(rv), 14521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project tens[e]); 14531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 14541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 14551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Inaccurate_Divide 14581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (e >= -Ten_pmax) { 14591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* value(rv) = */ rounded_quotient(value(rv), 14601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project tens[-e]); 14611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 14621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 14641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e1 += nd - k; 14661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 14671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Get starting approximation = rv * 10**e1 */ 14681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 14691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 > 0) { 14701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((i = e1 & 15) != 0) 14711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= tens[i]; 14721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 &= ~15) { 14731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 > DBL_MAX_10_EXP) { 14741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ovfl: 14751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project errno = ERANGE; 14761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = HUGE_VAL; 14771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bd0) 14781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto retfree; 14791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 14801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((e1 = (unsigned int)e1 >> 4) != 0) { 14821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(j = 0; e1 > 1; j++, 14831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e1 = (unsigned int)e1 >> 1) 14841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 & 1) 14851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= bigtens[j]; 14861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* The last multiplication could overflow. */ 14871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) -= P*Exp_msk1; 14881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= bigtens[j]; 14891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((z = word0(rv) & Exp_mask) 14901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project > Exp_msk1*(DBL_MAX_EXP+Bias-P)) 14911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ovfl; 14921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (z > Exp_msk1*(DBL_MAX_EXP+Bias-1-P)) { 14931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* set to largest number */ 14941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* (Can't trust DBL_MAX) */ 14951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = Big0; 14961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = Big1; 14971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 14981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 14991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) += P*Exp_msk1; 15001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 15021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (e1 < 0) { 15051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e1 = -e1; 15061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((i = e1 & 15) != 0) 15071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) /= tens[i]; 15081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 &= ~15) { 15091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e1 = (unsigned int)e1 >> 4; 15101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 >= 1 << n_bigtens) 15111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto undfl; 15121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(j = 0; e1 > 1; j++, 15131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e1 = (unsigned int)e1 >> 1) 15141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e1 & 1) 15151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= tinytens[j]; 15161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* The last multiplication could underflow. */ 15171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv0) = value(rv); 15181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= tinytens[j]; 15191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!value(rv)) { 15201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = 2.*value(rv0); 15211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) *= tinytens[j]; 15221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!value(rv)) { 15231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project undfl: 15241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) = 0.; 15251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project errno = ERANGE; 15261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bd0) 15271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto retfree; 15281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 15291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = Tiny0; 15311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = Tiny1; 15321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* The refinement below will clean 15331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * this approximation up. 15341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 15351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 15391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Now the hard part -- adjusting rv to the correct value.*/ 15401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 15411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Put digits into bd: true value = bd * 10^e */ 15421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 15431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd0 = s2b(s0, nd0, nd, y); 15441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 15451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(;;) { 15461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd = Balloc(bd0->k); 15471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bcopy(bd, bd0); 15481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb = d2b(value(rv), &bbe, &bbbits); /* rv = bb * 2^bbe */ 15491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bs = i2b(1); 15501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 15511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (e >= 0) { 15521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb2 = bb5 = 0; 15531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd2 = bd5 = e; 15541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 15561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb2 = bb5 = -e; 15571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd2 = bd5 = 0; 15581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bbe >= 0) 15601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb2 += bbe; 15611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 15621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd2 -= bbe; 15631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bs2 = bb2; 15641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Sudden_Underflow 15651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 15661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = 1 + 4*P - 3 - bbbits + ((bbe + bbbits - 1) & 3); 15671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 15681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = P + 1 - bbbits; 15691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 15701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 15711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = bbe + bbbits - 1; /* logb(rv) */ 15721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i < Emin) /* denormal */ 15731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = bbe + (P-Emin); 15741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 15751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = P + 1 - bbbits; 15761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 15771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb2 += j; 15781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd2 += j; 15791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = bb2 < bd2 ? bb2 : bd2; 15801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i > bs2) 15811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = bs2; 15821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i > 0) { 15831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb2 -= i; 15841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd2 -= i; 15851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bs2 -= i; 15861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bb5 > 0) { 15881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bs = pow5mult(bs, bb5); 15891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb1 = mult(bs, bb); 15901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bb); 15911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb = bb1; 15921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 15931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bb2 > 0) 15941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bb = lshift(bb, bb2); 15951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bd5 > 0) 15961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd = pow5mult(bd, bd5); 15971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bd2 > 0) 15981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bd = lshift(bd, bd2); 15991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (bs2 > 0) 16001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bs = lshift(bs, bs2); 16011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project delta = diff(bb, bd); 16021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project dsign = delta->sign; 16031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project delta->sign = 0; 16041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = cmp(delta, bs); 16051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i < 0) { 16061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Error is less than half an ulp -- check for 16071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * special case of mantissa a power of two. 16081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 16091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dsign || word1(rv) || word0(rv) & Bndry_mask) 16101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 16111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project delta = lshift(delta,Log2P); 16121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (cmp(delta, bs) > 0) 16131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto drop_down; 16141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 16151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i == 0) { 16171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* exactly half-way between */ 16181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dsign) { 16191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(rv) & Bndry_mask1) == Bndry_mask1 16201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project && word1(rv) == 0xffffffff) { 16211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /*boundary case -- increment exponent*/ 16221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = (word0(rv) & Exp_mask) 16231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project + Exp_msk1 16241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 16251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project | Exp_msk1 >> 4 16261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ; 16281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = 0; 16291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 16301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (!(word0(rv) & Bndry_mask) && !word1(rv)) { 16331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project drop_down: 16341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* boundary case -- decrement exponent */ 16351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Sudden_Underflow 16361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = word0(rv) & Exp_mask; 16371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 16381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (L < Exp_msk1) 16391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 16401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (L <= Exp_msk1) 16411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto undfl; 16431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L -= Exp_msk1; 16441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 16451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = (word0(rv) & Exp_mask) - Exp_msk1; 16461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = L | Bndry_mask1; 16481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = 0xffffffff; 16491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 16501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto cont; 16511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 16521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 16531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef ROUND_BIASED 16561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(word1(rv) & LSB)) 16571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 16581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dsign) 16601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) += ulp(value(rv)); 16611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef ROUND_BIASED 16621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 16631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) -= ulp(value(rv)); 16641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 16651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!value(rv)) 16661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto undfl; 16671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 16711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((aadj = ratio(delta, bs)) <= 2.) { 16731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dsign) 16741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj = aadj1 = 1.; 16751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (word1(rv) || word0(rv) & Bndry_mask) { 16761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 16771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (word1(rv) == Tiny1 && !word0(rv)) 16781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto undfl; 16791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 16801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj = 1.; 16811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 = -1.; 16821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 16841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* special case -- power of FLT_RADIX to be */ 16851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* rounded down... */ 16861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 16871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (aadj < 2./FLT_RADIX) 16881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj = 1./FLT_RADIX; 16891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 16901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj *= 0.5; 16911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 = -aadj; 16921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 16941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 16951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj *= 0.5; 16961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 = dsign ? aadj : -aadj; 16971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Check_FLT_ROUNDS 16981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project switch(FLT_ROUNDS) { 16991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 2: /* towards +infinity */ 17001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 -= 0.5; 17011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 17021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 0: /* towards 0 */ 17031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 3: /* towards -infinity */ 17041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 += 0.5; 17051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 17071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (FLT_ROUNDS == 0) 17081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 += 0.5; 17091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 17101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = word0(rv) & Exp_mask; 17121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 17131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Check for overflow */ 17141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 17151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (y == Exp_msk1*(DBL_MAX_EXP+Bias-1)) { 17161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv0) = value(rv); 17171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) -= P*Exp_msk1; 17181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project adj = aadj1 * ulp(value(rv)); 17191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) += adj; 17201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(rv) & Exp_mask) >= 17211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Exp_msk1*(DBL_MAX_EXP+Bias-P)) { 17221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (word0(rv0) == Big0 && word1(rv0) == Big1) 17231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ovfl; 17241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = Big0; 17251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = Big1; 17261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto cont; 17271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 17291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) += P*Exp_msk1; 17301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 17321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Sudden_Underflow 17331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { 17341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv0) = value(rv); 17351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) += P*Exp_msk1; 17361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project adj = aadj1 * ulp(value(rv)); 17371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) += adj; 17381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 17391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(rv) & Exp_mask) < P*Exp_msk1) 17401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 17411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(rv) & Exp_mask) <= P*Exp_msk1) 17421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 17431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project { 17441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (word0(rv0) == Tiny0 17451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project && word1(rv0) == Tiny1) 17461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto undfl; 17471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) = Tiny0; 17481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word1(rv) = Tiny1; 17491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto cont; 17501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 17521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(rv) -= P*Exp_msk1; 17531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 17551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project adj = aadj1 * ulp(value(rv)); 17561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) += adj; 17571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 17591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Compute adj so that the IEEE rounding rules will 17601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * correctly round rv + adj in some half-way cases. 17611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * If rv * ulp(rv) is denormalized (i.e., 17621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * y <= (P-1)*Exp_msk1), we must adjust aadj to avoid 17631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * trouble from bits lost to denormalization; 17641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * example: 1.2e-307 . 17651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 17661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (y <= (P-1)*Exp_msk1 && aadj >= 1.) { 17671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 = (double)(int)(aadj + 0.5); 17681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!dsign) 17691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj1 = -aadj1; 17701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project adj = aadj1 * ulp(value(rv)); 17721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(rv) += adj; 17731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 17741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = word0(rv) & Exp_mask; 17761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (y == z) { 17771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Can we stop now? */ 17781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = aadj; 17791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project aadj -= L; 17801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* The tolerances below are conservative. */ 17811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dsign || word1(rv) || word0(rv) & Bndry_mask) { 17821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (aadj < .4999999 || aadj > .5000001) 17831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 17841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (aadj < .4999999/FLT_RADIX) 17861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 17871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project cont: 17891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bb); 17901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bd); 17911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bs); 17921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(delta); 17931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 17941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project retfree: 17951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bb); 17961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bd); 17971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bs); 17981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(bd0); 17991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(delta); 18001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ret: 18011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (se) 18021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* LINTED interface specification */ 18031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *se = (char *)s; 18041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return sign ? -value(rv) : value(rv); 18051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 18061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 18071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project static int 18081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectquorem 18091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 18101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (b, S) Bigint *b, *S; 18111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 18121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (Bigint *b, Bigint *S) 18131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 18141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 18151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int n; 18161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long borrow, y; 18171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong carry, q, ys; 18181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong *bx, *bxe, *sx, *sxe; 18191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 18201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long z; 18211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong si, zs; 18221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 18231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 18241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project n = S->wds; 18251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 18261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /*debug*/ if (b->wds > n) 18271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /*debug*/ Bug("oversize b in quorem"); 18281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 18291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (b->wds < n) 18301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return 0; 18311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project sx = S->x; 18321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project sxe = sx + --n; 18331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bx = b->x; 18341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bxe = bx + n; 18351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project q = *bxe / (*sxe + 1); /* ensure q <= true quotient */ 18361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef DEBUG 18371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /*debug*/ if (q > 9) 18381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /*debug*/ Bug("oversized quotient in quorem"); 18391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 18401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (q) { 18411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = 0; 18421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = 0; 18431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 18441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 18451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project si = *sx++; 18461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ys = (si & 0xffff) * q + carry; 18471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project zs = (si >> 16) * q + (ys >> 16); 18481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = zs >> 16; 18491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = (*bx & 0xffff) - (ys & 0xffff) + borrow; 18501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)y >> 16; 18511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 18521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (*bx >> 16) - (zs & 0xffff) + borrow; 18531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)z >> 16; 18541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, z); 18551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Storeinc(bx, z, y); 18561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 18571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ys = *sx++ * q + carry; 18581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = ys >> 16; 18591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = *bx - (ys & 0xffff) + borrow; 18601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = y >> 16; 18611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 18621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *bx++ = y & 0xffff; 18631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 18641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 18651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(sx <= sxe); 18661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!*bxe) { 18671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bx = b->x; 18681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(--bxe > bx && !*bxe) 18691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project --n; 18701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = n; 18711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 18721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 18731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (cmp(b, S) >= 0) { 18741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project q++; 18751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = 0; 18761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = 0; 18771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bx = b->x; 18781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project sx = S->x; 18791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project do { 18801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 18811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project si = *sx++; 18821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ys = (si & 0xffff) + carry; 18831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project zs = (si >> 16) + (ys >> 16); 18841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = zs >> 16; 18851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = (*bx & 0xffff) - (ys & 0xffff) + borrow; 18861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)y >> 16; 18871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 18881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project z = (*bx >> 16) - (zs & 0xffff) + borrow; 18891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = (ULong)z >> 16; 18901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, z); 18911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Storeinc(bx, z, y); 18921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 18931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ys = *sx++ + carry; 18941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project carry = ys >> 16; 18951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project y = *bx - (ys & 0xffff) + borrow; 18961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project borrow = y >> 16; 18971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sign_Extend(borrow, y); 18981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *bx++ = y & 0xffff; 18991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 19001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 19011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(sx <= sxe); 19021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bx = b->x; 19031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bxe = bx + n; 19041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!*bxe) { 19051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(--bxe > bx && !*bxe) 19061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project --n; 19071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b->wds = n; 19081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 19091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 19101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return q; 19111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 19121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* freedtoa(s) must be used to free values s returned by dtoa 19141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * when MULTIPLE_THREADS is #defined. It should be used in all cases, 19151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * but for consistency with earlier versions of dtoa, it is optional 19161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * when MULTIPLE_THREADS is not defined. 19171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 19181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectvoid 19201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 19211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectfreedtoa(s) char *s; 19221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 19231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Projectfreedtoa(char *s) 19241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 19251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 19261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project free(s); 19271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project} 19281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project/* dtoa for IEEE arithmetic (dmg): convert double to ASCII string. 19321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 19331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Inspired by "How to Print Floating-Point Numbers Accurately" by 19341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Guy L. Steele, Jr. and Jon L. White [Proc. ACM SIGPLAN '90, pp. 92-101]. 19351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 19361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Modifications: 19371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 1. Rather than iterating, we use a simple numeric overestimate 19381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * to determine k = floor(log10(d)). We scale relevant 19391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * quantities using O(log2(k)) rather than O(k) multiplications. 19401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 2. For some modes > 2 (corresponding to ecvt and fcvt), we don't 19411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * try to generate digits strictly left to right. Instead, we 19421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * compute with fewer bits and propagate the carry if necessary 19431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * when rounding the final digit up. This is often faster. 19441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 3. Under the assumption that input will be rounded nearest, 19451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * mode 0 renders 1e23 as 1e23 rather than 9.999999999999999e22. 19461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * That is, we allow equality in stopping tests when the 19471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * round-nearest rule will give the same floating-point value 19481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * as would satisfaction of the stopping test with strict 19491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * inequality. 19501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 4. We remove common factors of powers of 2 from relevant 19511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * quantities. 19521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 5. When converting floating-point integers less than 1e16, 19531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * we use floating-point arithmetic rather than resorting 19541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * to multiple-precision integers. 19551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 6. When asked to produce fewer than 15 digits, we first try 19561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * to get by with floating-point arithmetic; we resort to 19571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * multiple-precision integer arithmetic only if we cannot 19581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * guarantee that the floating-point calculation has given 19591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * the correctly rounded result. For k requested digits and 19601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * "uniformly" distributed input, the probability is 19611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * something like 10^(k-15) that we must resort to the Long 19621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * calculation. 19631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 19641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project char * 19661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project__dtoa 19671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef KR_headers 19681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (_d, mode, ndigits, decpt, sign, rve) 19691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project double _d; int mode, ndigits, *decpt, *sign; char **rve; 19701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 19711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (double _d, int mode, int ndigits, int *decpt, int *sign, char **rve) 19721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 19731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project{ 19741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Arguments ndigits, decpt, sign are similar to those 19751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project of ecvt and fcvt; trailing zeros are suppressed from 19761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project the returned string. If not null, *rve is set to point 19771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project to the end of the return value. If d is +-Infinity or NaN, 19781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project then *decpt is set to 9999. 19791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 19801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mode: 19811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 0 ==> shortest string that yields d when read in 19821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project and rounded to nearest. 19831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1 ==> like 0, but with Steele & White stopping rule; 19841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project e.g. with IEEE P754 arithmetic , mode 0 gives 19851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1e23 whereas mode 1 gives 9.999999999999999e22. 19861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2 ==> max(1,ndigits) significant digits. This gives a 19871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return value similar to that of ecvt, except 19881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project that trailing zeros are suppressed. 19891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 3 ==> through ndigits past the decimal point. This 19901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project gives a return value similar to that from fcvt, 19911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project except that trailing zeros are suppressed, and 19921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ndigits can be negative. 19931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4-9 should give the same return values as 2-3, i.e., 19941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4 <= mode <= 9 ==> same return as mode 19951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 2 + (mode & 1). These modes are mainly for 19961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project debugging; often they run slower but sometimes 19971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project faster than modes 2-3. 19981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 4,5,8,9 ==> left-to-right digit generation. 19991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 6-9 ==> don't try fast floating-point estimate 20001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project (if applicable). 20011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Values of mode other than 0-9 are treated as mode 0. 20031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Sufficient space is allocated to the return value 20051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project to hold the suppressed trailing zeros. 20061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 20071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int bbits, b2, b5, be, dig, i, ieps, ilim0, 20091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j, jj1, k, k0, k_check, leftright, m2, m5, s2, s5, 20101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project try_quick; 20111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int ilim = 0, ilim1 = 0, spec_case = 0; /* pacify gcc */ 20121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Long L; 20131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 20141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int denorm; 20151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ULong x; 20161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *b, *b1, *delta, *mhi, *S; 20181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *mlo = NULL; /* pacify gcc */ 20191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project double ds; 20201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project char *s, *s0; 20211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bigint *result = NULL; 20221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project int result_k = 0; 20231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project _double d, d2, eps; 20241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) = _d; 20261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (word0(d) & Sign_bit) { 20281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* set sign for everything, including 0's and NaNs */ 20291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *sign = 1; 20301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(d) &= ~Sign_bit; /* clear sign bit */ 20311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 20321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 20331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *sign = 0; 20341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#if defined(IEEE_Arith) + defined(VAX) 20361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IEEE_Arith 20371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((word0(d) & Exp_mask) == Exp_mask) 20381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 20391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (word0(d) == 0x8000) 20401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project { 20421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Infinity or NaN */ 20431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *decpt = 9999; 20441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = 20451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IEEE_Arith 20461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project !word1(d) && !(word0(d) & 0xfffff) ? "Infinity" : 20471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project "NaN"; 20491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project result = Balloc(strlen(s)+1); 20501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0 = (char *)(void *)result; 20511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project strcpy(s0, s); 20521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (rve) 20531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *rve = 20541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IEEE_Arith 20551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0[3] ? s0 + 8 : 20561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0 + 3; 20581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return s0; 20591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 20601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 20621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) += 0; /* normalize */ 20631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!value(d)) { 20651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *decpt = 1; 20661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project result = Balloc(2); 20671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s0 = (char *)(void *)result; 20681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project strcpy(s0, "0"); 20691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (rve) 20701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *rve = s0 + 1; 20711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return s0; 20721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 20731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = d2b(value(d), &be, &bbits); 20751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Sudden_Underflow 20761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1)); 20771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 20781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1))) != 0) { 20791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d2) = value(d); 20811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(d2) &= Frac_mask1; 20821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(d2) |= Exp_11; 20831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 20841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j = 11 - hi0bits(word0(d2) & Frac_mask)) 20851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d2) /= 1 << j; 20861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 20871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 20881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* log(x) ~=~ log(1.5) + (x-1.5)/1.5 20891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * log10(x) = log(x) / log(10) 20901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * ~=~ log(1.5)/log(10) + (x-1.5)/(1.5*log(10)) 20911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * log10(d) = (i-Bias)*log(2)/log(10) + log10(d2) 20921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 20931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * This suggests computing an approximation k to log10(d) by 20941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 20951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * k = (i - Bias)*0.301029995663981 20961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * + ( (d2-1.5)*0.289529654602168 + 0.176091259055681 ); 20971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 20981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * We want k to be too large rather than too small. 20991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * The error in the first-order Taylor series approximation 21001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * is in our favor, so we just round up the constant enough 21011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * to compensate for any error in the multiplication of 21021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * (i - Bias) by 0.301029995663981; since |i - Bias| <= 1077, 21031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * and 1077 * 0.30103 * 2^-52 ~=~ 7.2e-14, 21041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * adding 1e-13 to the constant term more than suffices. 21051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Hence we adjust the constant term to 0.1760912590558. 21061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * (We could get a more accurate k by invoking log10, 21071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * but this is probably not worthwhile.) 21081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 21091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 21101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i -= Bias; 21111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 21121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i <<= 2; 21131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i += j; 21141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 21151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 21161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project denorm = 0; 21171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 21191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* d is denormalized */ 21201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 21211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = bbits + be + (Bias + (P-1) - 1); 21221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project x = i > 32 ? word0(d) << (64 - i) | word1(d) >> (i - 32) 21231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project : word1(d) << (32 - i); 21241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d2) = x; 21251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(d2) -= 31*Exp_msk1; /* adjust exponent */ 21261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i -= (Bias + (P-1) - 1) + 1; 21271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project denorm = 1; 21281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 21301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ds = (value(d2)-1.5)*0.289529654602168 + 0.1760912590558 + 21311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i*0.301029995663981; 21321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = (int)ds; 21331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ds < 0. && ds != k) 21341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k--; /* want k = floor(ds) */ 21351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k_check = 1; 21361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k >= 0 && k <= Ten_pmax) { 21371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) < tens[k]) 21381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k--; 21391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k_check = 0; 21401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = bbits - i - 1; 21421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j >= 0) { 21431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 = 0; 21441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 = j; 21451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 21471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 = -j; 21481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 = 0; 21491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k >= 0) { 21511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b5 = 0; 21521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s5 = k; 21531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 += k; 21541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 21561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 -= k; 21571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b5 = -k; 21581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s5 = 0; 21591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mode < 0 || mode > 9) 21611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mode = 0; 21621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project try_quick = 1; 21631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mode > 5) { 21641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mode -= 4; 21651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project try_quick = 0; 21661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project leftright = 1; 21681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project switch(mode) { 21691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 0: 21701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 1: 21711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim = ilim1 = -1; 21721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 18; 21731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ndigits = 0; 21741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 21751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 2: 21761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project leftright = 0; 21771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* FALLTHROUGH */ 21781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 4: 21791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ndigits <= 0) 21801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ndigits = 1; 21811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim = ilim1 = i = ndigits; 21821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 21831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 3: 21841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project leftright = 0; 21851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* FALLTHROUGH */ 21861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project case 5: 21871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = ndigits + k + 1; 21881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim = i; 21891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim1 = i - 1; 21901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i <= 0) 21911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 1; 21921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 21931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = sizeof(ULong); 21941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(result_k = 0; (int)(sizeof(Bigint) - sizeof(ULong)) + j <= i; 21951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j <<= 1) result_k++; 21961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project // this is really a ugly hack, the code uses Balloc 21971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project // instead of malloc, but casts the result into a char* 21981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project // it seems the only reason to do that is due to the 21991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project // complicated way the block size need to be computed 22001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project // buuurk.... 22011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project result = Balloc(result_k); 22021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s0 = (char *)(void *)result; 22031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 22041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ilim >= 0 && ilim <= Quick_max && try_quick) { 22051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 22061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Try to get by with floating-point arithmetic. */ 22071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 22081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 0; 22091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d2) = value(d); 22101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k0 = k; 22111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim0 = ilim; 22121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ieps = 2; /* conservative */ 22131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k > 0) { 22141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ds = tens[k&0xf]; 22151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = (unsigned int)k >> 4; 22161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j & Bletch) { 22171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* prevent overflows */ 22181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j &= Bletch - 1; 22191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) /= bigtens[n_bigtens-1]; 22201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ieps++; 22211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(; j; j = (unsigned int)j >> 1, i++) 22231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j & 1) { 22241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ieps++; 22251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ds *= bigtens[i]; 22261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) /= ds; 22281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if ((jj1 = -k) != 0) { 22301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) *= tens[jj1 & 0xf]; 22311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(j = (unsigned int)jj1 >> 4; j; 22321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = (unsigned int)j >> 1, i++) 22331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j & 1) { 22341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ieps++; 22351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) *= bigtens[i]; 22361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k_check && value(d) < 1. && ilim > 0) { 22391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ilim1 <= 0) 22401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto fast_failed; 22411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim = ilim1; 22421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k--; 22431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) *= 10.; 22441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ieps++; 22451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(eps) = ieps*value(d) + 7.; 22471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project word0(eps) -= (P-1)*Exp_msk1; 22481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ilim == 0) { 22491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project S = mhi = 0; 22501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) -= 5.; 22511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) > value(eps)) 22521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto one_digit; 22531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) < -value(eps)) 22541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto no_digits; 22551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto fast_failed; 22561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef No_leftright 22581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (leftright) { 22591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Use Steele & White method of only 22601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * generating digits needed. 22611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 22621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(eps) = 0.5/tens[ilim-1] - value(eps); 22631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 0;;) { 22641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = value(d); 22651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) -= L; 22661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '0' + (int)L; 22671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) < value(eps)) 22681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret1; 22691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (1. - value(d) < value(eps)) 22701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto bump_up; 22711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (++i >= ilim) 22721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 22731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(eps) *= 10.; 22741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) *= 10.; 22751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 22781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 22791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Generate ilim digits, then fix them up. */ 22801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(eps) *= tens[ilim-1]; 22811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 1;; i++, value(d) *= 10.) { 22821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = value(d); 22831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) -= L; 22841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '0' + (int)L; 22851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i == ilim) { 22861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) > 0.5 + value(eps)) 22871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto bump_up; 22881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (value(d) < 0.5 - value(eps)) { 22891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(*--s == '0'); 22901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s++; 22911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret1; 22921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 22941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef No_leftright 22971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 22981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 22991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project fast_failed: 23001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s = s0; 23011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) = value(d2); 23021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = k0; 23031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim = ilim0; 23041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 23061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Do we have a "small" integer? */ 23071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 23081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (be >= 0 && k <= Int_max) { 23091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Yes. */ 23101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ds = tens[k]; 23111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ndigits < 0 && ilim <= 0) { 23121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project S = mhi = 0; 23131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ilim < 0 || value(d) <= 5*ds) 23141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto no_digits; 23151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto one_digit; 23161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 1;; i++) { 23181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L = value(d) / ds; 23191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) -= L*ds; 23201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Check_FLT_ROUNDS 23211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* If FLT_ROUNDS == 2, L will usually be high by 1 */ 23221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) < 0) { 23231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project L--; 23241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) += ds; 23251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 23271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '0' + (int)L; 23281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i == ilim) { 23291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project value(d) += value(d); 23301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (value(d) > ds || (value(d) == ds && L & 1)) { 23311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project bump_up: 23321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(*--s == '9') 23331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (s == s0) { 23341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k++; 23351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s = '0'; 23361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 23371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ++*s++; 23391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 23411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!(value(d) *= 10.)) 23431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 23441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret1; 23461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 23481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m2 = b2; 23491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m5 = b5; 23501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = mlo = 0; 23511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (leftright) { 23521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mode < 2) { 23531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 23541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 23551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project denorm ? be + (Bias + (P-1) - 1 + 1) : 23561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 23571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef IBM 23581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1 + 4*P - 3 - bbits + ((bbits + be - 1) & 3); 23591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 23601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 1 + P - bbits; 23611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 23621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 23641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = ilim - 1; 23651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (m5 >= j) 23661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m5 -= j; 23671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 23681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s5 += j -= m5; 23691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b5 += j; 23701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m5 = 0; 23711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((i = ilim) < 0) { 23731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m2 -= i; 23741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 0; 23751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 += i; 23781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 += i; 23791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = i2b(1); 23801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (m2 > 0 && s2 > 0) { 23821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = m2 < s2 ? m2 : s2; 23831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 -= i; 23841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m2 -= i; 23851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 -= i; 23861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (b5 > 0) { 23881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (leftright) { 23891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (m5 > 0) { 23901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = pow5mult(mhi, m5); 23911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b1 = mult(mhi, b); 23921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(b); 23931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = b1; 23941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((j = b5 - m5) != 0) 23961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = pow5mult(b, j); 23971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 23981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 23991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = pow5mult(b, b5); 24001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project S = i2b(1); 24021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (s5 > 0) 24031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project S = pow5mult(S, s5); 24041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 24051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Check for special case that d is a normalized power of 2. */ 24061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 24071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mode < 2) { 24081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (!word1(d) && !(word0(d) & Bndry_mask) 24091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef Sudden_Underflow 24101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project && word0(d) & Exp_mask 24111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 24121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ) { 24131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* The special case */ 24141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 += Log2P; 24151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 += Log2P; 24161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project spec_case = 1; 24171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 24191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project spec_case = 0; 24201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 24221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Arrange for convenient computation of quotients: 24231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * shift left if necessary so divisor has 4 leading 0 bits. 24241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * 24251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * Perhaps we should just compute leading 28 bits of S once 24261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * and for all and pass them and a shift to quorem, so it 24271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * can do shifts and ors to compute the numerator for q. 24281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 24291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef Pack_32 24301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((i = ((s5 ? 32 - hi0bits(S->x[S->wds-1]) : 1) + s2) & 0x1f) != 0) 24311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 32 - i; 24321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#else 24331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i = ((s5 ? 32 - hi0bits(S->x[S->wds-1]) : 1) + s2) & 0xf) 24341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i = 16 - i; 24351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 24361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i > 4) { 24371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i -= 4; 24381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 += i; 24391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m2 += i; 24401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 += i; 24411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else if (i < 4) { 24431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project i += 28; 24441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b2 += i; 24451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project m2 += i; 24461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s2 += i; 24471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (b2 > 0) 24491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = lshift(b, b2); 24501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (s2 > 0) 24511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project S = lshift(S, s2); 24521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (k_check) { 24531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (cmp(b,S) < 0) { 24541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k--; 24551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = multadd(b, 10, 0); /* we botched the k estimate */ 24561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (leftright) 24571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = multadd(mhi, 10, 0); 24581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ilim = ilim1; 24591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ilim <= 0 && mode > 2) { 24621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (ilim < 0 || cmp(b,S = multadd(S,5,0)) <= 0) { 24631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* no digits, fcvt style */ 24641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project no_digits: 24651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = -1 - ndigits; 24661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 24671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project one_digit: 24691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '1'; 24701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k++; 24711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 24721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (leftright) { 24741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (m2 > 0) 24751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = lshift(mhi, m2); 24761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 24771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Compute mlo -- check for special case 24781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * that d is a normalized power of 2. 24791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 24801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 24811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mlo = mhi; 24821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (spec_case) { 24831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = Balloc(mhi->k); 24841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bcopy(mhi, mlo); 24851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = lshift(mhi, Log2P); 24861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 24871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 24881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 1;;i++) { 24891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project dig = quorem(b,S) + '0'; 24901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Do we yet have the shortest decimal string 24911dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project * that will round to d? 24921dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project */ 24931dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = cmp(b, mlo); 24941dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project delta = diff(S, mhi); 24951dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project jj1 = delta->sign ? 1 : cmp(b, delta); 24961dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(delta); 24971dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef ROUND_BIASED 24981dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (jj1 == 0 && !mode && !(word1(d) & 1)) { 24991dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dig == '9') 25001dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto round_9_up; 25011dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j > 0) 25021dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project dig++; 25031dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = dig; 25041dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 25051dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25061dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 25071dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j < 0 || (j == 0 && !mode 25081dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifndef ROUND_BIASED 25091dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project && !(word1(d) & 1) 25101dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 25111dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project )) { 25121dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (jj1 > 0) { 25131dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = lshift(b, 1); 25141dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project jj1 = cmp(b, S); 25151dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if ((jj1 > 0 || (jj1 == 0 && dig & 1)) 25161dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project && dig++ == '9') 25171dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto round_9_up; 25181dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25191dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = dig; 25201dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 25211dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25221dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (jj1 > 0) { 25231dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (dig == '9') { /* possible if i == 1 */ 25241dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project round_9_up: 25251dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '9'; 25261dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto roundoff; 25271dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25281dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = dig + 1; 25291dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 25301dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25311dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = dig; 25321dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i == ilim) 25331dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 25341dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = multadd(b, 10, 0); 25351dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mlo == mhi) 25361dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mlo = mhi = multadd(mhi, 10, 0); 25371dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 25381dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mlo = multadd(mlo, 10, 0); 25391dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project mhi = multadd(mhi, 10, 0); 25401dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25411dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25421dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25431dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else 25441dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project for(i = 1;; i++) { 25451dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = dig = quorem(b,S) + '0'; 25461dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (i >= ilim) 25471dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project break; 25481dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = multadd(b, 10, 0); 25491dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25501dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 25511dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project /* Round off last digit */ 25521dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project 25531dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project b = lshift(b, 1); 25541dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project j = cmp(b, S); 25551dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (j > 0 || (j == 0 && dig & 1)) { 25561dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project roundoff: 25571dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(*--s == '9') 25581dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (s == s0) { 25591dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k++; 25601dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '1'; 25611dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project goto ret; 25621dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25631dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ++*s++; 25641dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25651dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project else { 25661dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project while(*--s == '0'); 25671dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project s++; 25681dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25691dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ret: 25701dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(S); 25711dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mhi) { 25721dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (mlo && mlo != mhi) 25731dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(mlo); 25741dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(mhi); 25751dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25761dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project ret1: 25771dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project Bfree(b); 25781dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (s == s0) { /* don't return empty string */ 25791dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s++ = '0'; 25801dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project k = 0; 25811dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25821dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *s = 0; 25831dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *decpt = k + 1; 25841dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project if (rve) 25851dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project *rve = s; 25861dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project return s0; 25871dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project } 25881dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#ifdef __cplusplus 25891dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project} 25901dc9e472e19acfe6dc7f41e429236e7eef7ceda1The Android Open Source Project#endif 2591