OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.18.50/] [gas/] [flonum-konst.c] - Blame information for rev 438

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius
/* flonum_const.c - Useful Flonum constants
2
   Copyright 1987, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 2000, 2002,
3
   2007  Free Software Foundation, Inc.
4
 
5
   This file is part of GAS, the GNU Assembler.
6
 
7
   GAS is free software; you can redistribute it and/or modify
8
   it under the terms of the GNU General Public License as published by
9
   the Free Software Foundation; either version 3, or (at your option)
10
   any later version.
11
 
12
   GAS is distributed in the hope that it will be useful,
13
   but WITHOUT ANY WARRANTY; without even the implied warranty of
14
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15
   GNU General Public License for more details.
16
 
17
   You should have received a copy of the GNU General Public License
18
   along with GAS; see the file COPYING.  If not, write to the Free
19
   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
20
   02110-1301, USA.  */
21
 
22
#include "ansidecl.h"
23
#include "flonum.h"
24
/* JF:  I added the last entry to this table, and I'm not
25
   sure if its right or not.  Could go either way.  I wish
26
   I really understood this stuff.  */
27
 
28
const int table_size_of_flonum_powers_of_ten = 13;
29
 
30
static const LITTLENUM_TYPE zero[] = {
31
  1
32
};
33
 
34
/***********************************************************************\
35
 *                                                                      *
36
 *      Warning: the low order bits may be WRONG here.                  *
37
 *      I took this from a suspect bc(1) script.                        *
38
 *      "minus_X"[] is supposed to be 10^(2^-X) expressed in base 2^16. *
39
 *      The radix point is just AFTER the highest element of the []     *
40
 *                                                                      *
41
 *      Because bc rounds DOWN for printing (I think), the lowest       *
42
 *      significance littlenums should probably have 1 added to them.   *
43
 *                                                                      *
44
 \***********************************************************************/
45
 
46
/* JF:  If this equals 6553/(2^16)+39321/(2^32)+...  it approaches .1 */
47
static const LITTLENUM_TYPE minus_1[] = {
48
  39322, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321,
49
  39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 6553
50
};
51
 
52
static const LITTLENUM_TYPE plus_1[] = {
53
  10
54
};
55
 
56
/* JF:  If this equals 655/(2^16) + 23592/(2^32) + ... it approaches .01 */
57
static const LITTLENUM_TYPE minus_2[] = {
58
  10486, 36700, 62914, 23592, 49807, 10485, 36700, 62914, 23592, 49807,
59
  10485, 36700, 62914, 23592, 49807, 10485, 36700, 62914, 23592, 655
60
};
61
 
62
static const LITTLENUM_TYPE plus_2[] = {
63
  100
64
};
65
 
66
/* This approaches .0001 */
67
static const LITTLENUM_TYPE minus_3[] = {
68
  52534, 20027, 37329, 65116, 64067, 60397, 14784, 18979, 33659, 19503,
69
  2726, 9542, 629, 2202, 40475, 10590, 4299, 47815, 36280, 6
70
};
71
 
72
static const LITTLENUM_TYPE plus_3[] = {
73
  10000
74
};
75
 
76
/* JF: this approaches 1e-8 */
77
static const LITTLENUM_TYPE minus_4[] = {
78
  22517, 49501, 54293, 19424, 60699, 6716, 24348, 22618, 23904, 21327,
79
  3919, 44703, 19149, 28803, 48959, 6259, 50273, 62237, 42
80
};
81
 
82
/* This equals 1525 * 2^16 + 57600 */
83
static const LITTLENUM_TYPE plus_4[] = {
84
  57600, 1525
85
};
86
 
87
/* This approaches 1e-16 */
88
static const LITTLENUM_TYPE minus_5[] = {
89
  22199, 45957, 17005, 26266, 10526, 16260, 55017, 35680, 40443, 19789,
90
  17356, 30195, 55905, 28426, 63010, 44197, 1844
91
};
92
 
93
static const LITTLENUM_TYPE plus_5[] = {
94
  28609, 34546, 35
95
};
96
 
97
static const LITTLENUM_TYPE minus_6[] = {
98
  30926, 26518, 13110, 43018, 54982, 48258, 24658, 15209, 63366, 11929,
99
  20069, 43857, 60487, 51
100
};
101
 
102
static const LITTLENUM_TYPE plus_6[] = {
103
  61313, 34220, 16731, 11629, 1262
104
};
105
 
106
static const LITTLENUM_TYPE minus_7[] = {
107
  29819, 14733, 21490, 40602, 31315, 65186, 2695
108
};
109
 
110
static const LITTLENUM_TYPE plus_7[] = {
111
  7937, 49002, 60772, 28216, 38893, 55975, 63988, 59711, 20227, 24
112
};
113
 
114
static const LITTLENUM_TYPE minus_8[] = {
115
  27579, 64807, 12543, 794, 13907, 61297, 12013, 64360, 15961, 20566,
116
  24178, 15922, 59427, 110
117
};
118
 
119
static const LITTLENUM_TYPE plus_8[] = {
120
  15873, 11925, 39177, 991, 14589, 3861, 58415, 9076, 62956, 54223,
121
  56328, 50180, 45274, 48333, 32537, 42547, 9731, 59679, 590
122
};
123
 
124
static const LITTLENUM_TYPE minus_9[] = {
125
  11042, 8464, 58971, 63429, 6022, 63485, 5500, 53464, 47545, 50068,
126
  56988, 22819, 49708, 54493, 9920, 47667, 40409, 35764, 10383, 54466,
127
  32702, 17493, 32420, 34382, 22750, 20681, 12300
128
};
129
 
130
static const LITTLENUM_TYPE plus_9[] = {
131
  20678, 27614, 28272, 53066, 55311, 54677, 29038, 9906, 26288, 44486,
132
  13860, 7445, 54106, 15426, 21518, 25599, 29632, 52309, 61207, 26105,
133
  10482, 21948, 51191, 32988, 60892, 62574, 61390, 24540, 21495, 5
134
};
135
 
136
static const LITTLENUM_TYPE minus_10[] = {
137
  6214, 48771, 23471, 30163, 31763, 38013, 57001, 11770, 18263, 36366,
138
  20742, 45086, 56969, 53231, 37856, 55814, 38057, 15692, 46761, 8713,
139
  6102, 20083, 8269, 11839, 11571, 50963, 15649, 11698, 40675, 2308
140
};
141
 
142
static const LITTLENUM_TYPE plus_10[] = {
143
  63839, 36576, 45712, 44516, 37803, 29482, 4966, 30556, 37961, 23310,
144
  27070, 44972, 29507, 48257, 45209, 7494, 17831, 38728, 41577, 29443,
145
  36016, 7955, 35339, 35479, 36011, 14553, 49618, 5588, 25396, 28
146
};
147
 
148
static const LITTLENUM_TYPE minus_11[] = {
149
  16663, 56882, 61983, 7804, 36555, 32060, 34502, 1000, 14356, 21681,
150
  6605, 34767, 51411, 59048, 53614, 39850, 30079, 6496, 6846, 26841,
151
  40778, 19578, 59899, 44085, 54016, 24259, 11232, 21229, 21313, 81
152
};
153
 
154
static const LITTLENUM_TYPE plus_11[] = {
155
  92, 9054, 62707, 17993, 7821, 56838, 13992, 21321, 29637, 48426,
156
  42982, 38668, 49574, 28820, 18200, 18927, 53979, 16219, 37484, 2516,
157
  44642, 14665, 11587, 41926, 13556, 23956, 54320, 6661, 55766, 805
158
};
159
 
160
static const LITTLENUM_TYPE minus_12[] = {
161
  33202, 45969, 58804, 56734, 16482, 26007, 44984, 49334, 31007, 32944,
162
  44517, 63329, 47131, 15291, 59465, 2264, 23218, 11829, 59771, 38798,
163
  31051, 28748, 23129, 40541, 41562, 35108, 50620, 59014, 51817, 6613
164
};
165
 
166
static const LITTLENUM_TYPE plus_12[] = {
167
  10098, 37922, 58070, 7432, 10470, 63465, 23718, 62190, 47420, 7009,
168
  38443, 4587, 45596, 38472, 52129, 52779, 29012, 13559, 48688, 31678,
169
  41753, 58662, 10668, 36067, 29906, 56906, 21461, 46556, 59571, 9
170
};
171
 
172
static const LITTLENUM_TYPE minus_13[] = {
173
  45309, 27592, 37144, 34637, 34328, 41671, 34620, 24135, 53401, 22112,
174
  21576, 45147, 39310, 44051, 48572, 3676, 46544, 59768, 33350, 2323,
175
  49524, 61568, 3903, 36487, 36356, 30903, 14975, 9035, 29715, 667
176
};
177
 
178
static const LITTLENUM_TYPE plus_13[] = {
179
  18788, 16960, 6318, 45685, 55400, 46230, 35794, 25588, 7253, 55541,
180
  49716, 59760, 63592, 8191, 63765, 58530, 44667, 13294, 10001, 55586,
181
  47887, 18738, 9509, 40896, 42506, 52580, 4171, 325, 12329, 98
182
};
183
 
184
/* Shut up complaints about differing pointer types.  They only differ
185
   in the const attribute, but there isn't any easy way to do this
186
   */
187
#define X (LITTLENUM_TYPE *)
188
 
189
const FLONUM_TYPE flonum_negative_powers_of_ten[] = {
190
  {X zero, X zero, X zero, 0, '+'},
191
  {X minus_1, X minus_1 + 19, X minus_1 + 19, -20, '+'},
192
  {X minus_2, X minus_2 + 19, X minus_2 + 19, -20, '+'},
193
  {X minus_3, X minus_3 + 19, X minus_3 + 19, -20, '+'},
194
  {X minus_4, X minus_4 + 18, X minus_4 + 18, -20, '+'},
195
  {X minus_5, X minus_5 + 16, X minus_5 + 16, -20, '+'},
196
  {X minus_6, X minus_6 + 13, X minus_6 + 13, -20, '+'},
197
  {X minus_7, X minus_7 + 6, X minus_7 + 6, -20, '+'},
198
  {X minus_8, X minus_8 + 13, X minus_8 + 13, -40, '+'},
199
  {X minus_9, X minus_9 + 26, X minus_9 + 26, -80, '+'},
200
  {X minus_10, X minus_10 + 29, X minus_10 + 29, -136, '+'},
201
  {X minus_11, X minus_11 + 29, X minus_11 + 29, -242, '+'},
202
  {X minus_12, X minus_12 + 29, X minus_12 + 29, -455, '+'},
203
  {X minus_13, X minus_13 + 29, X minus_13 + 29, -880, '+'},
204
};
205
 
206
const FLONUM_TYPE flonum_positive_powers_of_ten[] = {
207
  {X zero, X zero, X zero, 0, '+'},
208
  {X plus_1, X plus_1 + 0, X plus_1 + 0, 0, '+'},
209
  {X plus_2, X plus_2 + 0, X plus_2 + 0, 0, '+'},
210
  {X plus_3, X plus_3 + 0, X plus_3 + 0, 0, '+'},
211
  {X plus_4, X plus_4 + 1, X plus_4 + 1, 0, '+'},
212
  {X plus_5, X plus_5 + 2, X plus_5 + 2, 1, '+'},
213
  {X plus_6, X plus_6 + 4, X plus_6 + 4, 2, '+'},
214
  {X plus_7, X plus_7 + 9, X plus_7 + 9, 4, '+'},
215
  {X plus_8, X plus_8 + 18, X plus_8 + 18, 8, '+'},
216
  {X plus_9, X plus_9 + 29, X plus_9 + 29, 24, '+'},
217
  {X plus_10, X plus_10 + 29, X plus_10 + 29, 77, '+'},
218
  {X plus_11, X plus_11 + 29, X plus_11 + 29, 183, '+'},
219
  {X plus_12, X plus_12 + 29, X plus_12 + 29, 396, '+'},
220
  {X plus_13, X plus_13 + 29, X plus_13 + 29, 821, '+'},
221
};
222
 
223
#ifdef VMS
224
void
225
dummy1 ()
226
{
227
}
228
#endif

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.