1cc36ccd1SDavid Schultz /****************************************************************
2cc36ccd1SDavid Schultz
3cc36ccd1SDavid Schultz The author of this software is David M. Gay.
4cc36ccd1SDavid Schultz
5cc36ccd1SDavid Schultz Copyright (C) 1998, 2000 by Lucent Technologies
6cc36ccd1SDavid Schultz All Rights Reserved
7cc36ccd1SDavid Schultz
8cc36ccd1SDavid Schultz Permission to use, copy, modify, and distribute this software and
9cc36ccd1SDavid Schultz its documentation for any purpose and without fee is hereby
10cc36ccd1SDavid Schultz granted, provided that the above copyright notice appear in all
11cc36ccd1SDavid Schultz copies and that both that the copyright notice and this
12cc36ccd1SDavid Schultz permission notice and warranty disclaimer appear in supporting
13cc36ccd1SDavid Schultz documentation, and that the name of Lucent or any of its entities
14cc36ccd1SDavid Schultz not be used in advertising or publicity pertaining to
15cc36ccd1SDavid Schultz distribution of the software without specific, written prior
16cc36ccd1SDavid Schultz permission.
17cc36ccd1SDavid Schultz
18cc36ccd1SDavid Schultz LUCENT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
19cc36ccd1SDavid Schultz INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
20cc36ccd1SDavid Schultz IN NO EVENT SHALL LUCENT OR ANY OF ITS ENTITIES BE LIABLE FOR ANY
21cc36ccd1SDavid Schultz SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
22cc36ccd1SDavid Schultz WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER
23cc36ccd1SDavid Schultz IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
24cc36ccd1SDavid Schultz ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
25cc36ccd1SDavid Schultz THIS SOFTWARE.
26cc36ccd1SDavid Schultz
27cc36ccd1SDavid Schultz ****************************************************************/
28cc36ccd1SDavid Schultz
29c88250a5SDavid Schultz /* Please send bug reports to David M. Gay (dmg at acm dot org,
30c88250a5SDavid Schultz * with " at " changed at "@" and " dot " changed to "."). */
31cc36ccd1SDavid Schultz
32cc36ccd1SDavid Schultz #include "gdtoaimp.h"
33cc36ccd1SDavid Schultz
34cc36ccd1SDavid Schultz #undef _0
35cc36ccd1SDavid Schultz #undef _1
36cc36ccd1SDavid Schultz
37cc36ccd1SDavid Schultz /* one or the other of IEEE_MC68k or IEEE_8087 should be #defined */
38cc36ccd1SDavid Schultz
39cc36ccd1SDavid Schultz #ifdef IEEE_MC68k
40cc36ccd1SDavid Schultz #define _0 0
41cc36ccd1SDavid Schultz #define _1 1
42cc36ccd1SDavid Schultz #define _2 2
43cc36ccd1SDavid Schultz #define _3 3
44cc36ccd1SDavid Schultz #define _4 4
45cc36ccd1SDavid Schultz #endif
46cc36ccd1SDavid Schultz #ifdef IEEE_8087
47cc36ccd1SDavid Schultz #define _0 4
48cc36ccd1SDavid Schultz #define _1 3
49cc36ccd1SDavid Schultz #define _2 2
50cc36ccd1SDavid Schultz #define _3 1
51cc36ccd1SDavid Schultz #define _4 0
52cc36ccd1SDavid Schultz #endif
53cc36ccd1SDavid Schultz
54cc36ccd1SDavid Schultz int
55cc36ccd1SDavid Schultz #ifdef KR_headers
strtopx(s,sp,V)56cc36ccd1SDavid Schultz strtopx(s, sp, V) CONST char *s; char **sp; void *V;
57cc36ccd1SDavid Schultz #else
58cc36ccd1SDavid Schultz strtopx(CONST char *s, char **sp, void *V)
59cc36ccd1SDavid Schultz #endif
60cc36ccd1SDavid Schultz {
614848dd08SDavid Schultz static FPI fpi0 = { 64, 1-16383-64+1, 32766 - 16383 - 64 + 1, 1, SI };
62cc36ccd1SDavid Schultz ULong bits[2];
63cc36ccd1SDavid Schultz Long exp;
64cc36ccd1SDavid Schultz int k;
65cc36ccd1SDavid Schultz UShort *L = (UShort*)V;
664848dd08SDavid Schultz #ifdef Honor_FLT_ROUNDS
674848dd08SDavid Schultz #include "gdtoa_fltrnds.h"
684848dd08SDavid Schultz #else
694848dd08SDavid Schultz #define fpi &fpi0
704848dd08SDavid Schultz #endif
71cc36ccd1SDavid Schultz
724848dd08SDavid Schultz k = strtodg(s, sp, fpi, &exp, bits);
73cc36ccd1SDavid Schultz switch(k & STRTOG_Retmask) {
74cc36ccd1SDavid Schultz case STRTOG_NoNumber:
75cc36ccd1SDavid Schultz case STRTOG_Zero:
76cc36ccd1SDavid Schultz L[0] = L[1] = L[2] = L[3] = L[4] = 0;
77cc36ccd1SDavid Schultz break;
78cc36ccd1SDavid Schultz
79cc36ccd1SDavid Schultz case STRTOG_Denormal:
80c88250a5SDavid Schultz L[_0] = 0;
81c88250a5SDavid Schultz goto normal_bits;
82c88250a5SDavid Schultz
83c88250a5SDavid Schultz case STRTOG_Normal:
84cc36ccd1SDavid Schultz case STRTOG_NaNbits:
85c88250a5SDavid Schultz L[_0] = exp + 0x3fff + 63;
86c88250a5SDavid Schultz normal_bits:
87cc36ccd1SDavid Schultz L[_4] = (UShort)bits[0];
88cc36ccd1SDavid Schultz L[_3] = (UShort)(bits[0] >> 16);
89cc36ccd1SDavid Schultz L[_2] = (UShort)bits[1];
90cc36ccd1SDavid Schultz L[_1] = (UShort)(bits[1] >> 16);
91cc36ccd1SDavid Schultz break;
92cc36ccd1SDavid Schultz
93cc36ccd1SDavid Schultz case STRTOG_Infinite:
94cc36ccd1SDavid Schultz L[_0] = 0x7fff;
95*50dad48bSDavid Schultz L[_1] = 0x8000;
96*50dad48bSDavid Schultz L[_2] = L[_3] = L[_4] = 0;
97cc36ccd1SDavid Schultz break;
98cc36ccd1SDavid Schultz
99cc36ccd1SDavid Schultz case STRTOG_NaN:
100c88250a5SDavid Schultz L[0] = ldus_QNAN0;
101c88250a5SDavid Schultz L[1] = ldus_QNAN1;
102c88250a5SDavid Schultz L[2] = ldus_QNAN2;
103c88250a5SDavid Schultz L[3] = ldus_QNAN3;
104c88250a5SDavid Schultz L[4] = ldus_QNAN4;
105cc36ccd1SDavid Schultz }
106cc36ccd1SDavid Schultz if (k & STRTOG_Neg)
107cc36ccd1SDavid Schultz L[_0] |= 0x8000;
108cc36ccd1SDavid Schultz return k;
109cc36ccd1SDavid Schultz }
110