gas/flonum-konst.c

   1 /* flonum_const.c - Useful Flonum constants
   2    Copyright (C) 1987, 90, 91, 92, 93, 94, 95, 1996
   3    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 2, 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, 59 Temple Place - Suite 330, Boston, MA
  20    02111-1307, 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
  29 const int table_size_of_flonum_powers_of_ten = 13;
  30
  31 static const LITTLENUM_TYPE zero[] =
  32 {1};
  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 {
  49   39322, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321,
  50   39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 39321, 6553};
  51 static const LITTLENUM_TYPE plus_1[] =
  52 {10};
  53
  54 /* JF:  If this equals 655/(2^16) + 23592/(2^32) + ... it approaches .01 */
  55 static const LITTLENUM_TYPE minus_2[] =
  56 {
  57   10486, 36700, 62914, 23592, 49807, 10485, 36700, 62914, 23592, 49807,
  58   10485, 36700, 62914, 23592, 49807, 10485, 36700, 62914, 23592, 655};
  59 static const LITTLENUM_TYPE plus_2[] =
  60 {100};
  61
  62 /* This approaches .0001 */
  63 static const LITTLENUM_TYPE minus_3[] =
  64 {
  65   52534, 20027, 37329, 65116, 64067, 60397, 14784, 18979, 33659, 19503,
  66   2726, 9542, 629, 2202, 40475, 10590, 4299, 47815, 36280, 6};
  67 static const LITTLENUM_TYPE plus_3[] =
  68 {10000};
  69
  70 /* JF: this approaches 1e-8 */
  71 static const LITTLENUM_TYPE minus_4[] =
  72 {
  73   22517, 49501, 54293, 19424, 60699, 6716, 24348, 22618, 23904, 21327,
  74   3919, 44703, 19149, 28803, 48959, 6259, 50273, 62237, 42};
  75 /* This equals 1525 * 2^16 + 57600 */
  76 static const LITTLENUM_TYPE plus_4[] =
  77 {57600, 1525};
  78
  79 /* This approaches 1e-16 */
  80 static const LITTLENUM_TYPE minus_5[] =
  81 {
  82   22199, 45957, 17005, 26266, 10526, 16260, 55017, 35680, 40443, 19789,
  83   17356, 30195, 55905, 28426, 63010, 44197, 1844};
  84 static const LITTLENUM_TYPE plus_5[] =
  85 {28609, 34546, 35};
  86
  87 static const LITTLENUM_TYPE minus_6[] =
  88 {
  89   30926, 26518, 13110, 43018, 54982, 48258, 24658, 15209, 63366, 11929,
  90   20069, 43857, 60487, 51};
  91 static const LITTLENUM_TYPE plus_6[] =
  92 {61313, 34220, 16731, 11629, 1262};
  93
  94 static const LITTLENUM_TYPE minus_7[] =
  95 {
  96   29819, 14733, 21490, 40602, 31315, 65186, 2695};
  97 static const LITTLENUM_TYPE plus_7[] =
  98 {
  99   7937, 49002, 60772, 28216, 38893, 55975, 63988, 59711, 20227, 24};
 100
 101 static const LITTLENUM_TYPE minus_8[] =
 102 {
 103   27579, 64807, 12543, 794, 13907, 61297, 12013, 64360, 15961, 20566,
 104   24178, 15922, 59427, 110};
 105 static const LITTLENUM_TYPE plus_8[] =
 106 {
 107   15873, 11925, 39177, 991, 14589, 3861, 58415, 9076, 62956, 54223,
 108   56328, 50180, 45274, 48333, 32537, 42547, 9731, 59679, 590};
 109
 110 static const LITTLENUM_TYPE minus_9[] =
 111 {
 112   11042, 8464, 58971, 63429, 6022, 63485, 5500, 53464, 47545, 50068,
 113   56988, 22819, 49708, 54493, 9920, 47667, 40409, 35764, 10383, 54466,
 114   32702, 17493, 32420, 34382, 22750, 20681, 12300};
 115 static const LITTLENUM_TYPE plus_9[] =
 116 {
 117   20678, 27614, 28272, 53066, 55311, 54677, 29038, 9906, 26288, 44486,
 118   13860, 7445, 54106, 15426, 21518, 25599, 29632, 52309, 61207, 26105,
 119   10482, 21948, 51191, 32988, 60892, 62574, 61390, 24540, 21495, 5};
 120
 121 static const LITTLENUM_TYPE minus_10[] =
 122 {
 123   6214, 48771, 23471, 30163, 31763, 38013, 57001, 11770, 18263, 36366,
 124   20742, 45086, 56969, 53231, 37856, 55814, 38057, 15692, 46761, 8713,
 125   6102, 20083, 8269, 11839, 11571, 50963, 15649, 11698, 40675, 2308};
 126 static const LITTLENUM_TYPE plus_10[] =
 127 {
 128   63839, 36576, 45712, 44516, 37803, 29482, 4966, 30556, 37961, 23310,
 129   27070, 44972, 29507, 48257, 45209, 7494, 17831, 38728, 41577, 29443,
 130   36016, 7955, 35339, 35479, 36011, 14553, 49618, 5588, 25396, 28};
 131
 132 static const LITTLENUM_TYPE minus_11[] =
 133 {
 134   16663, 56882, 61983, 7804, 36555, 32060, 34502, 1000, 14356, 21681,
 135   6605, 34767, 51411, 59048, 53614, 39850, 30079, 6496, 6846, 26841,
 136   40778, 19578, 59899, 44085, 54016, 24259, 11232, 21229, 21313, 81};
 137 static const LITTLENUM_TYPE plus_11[] =
 138 {
 139   92, 9054, 62707, 17993, 7821, 56838, 13992, 21321, 29637, 48426,
 140   42982, 38668, 49574, 28820, 18200, 18927, 53979, 16219, 37484, 2516,
 141   44642, 14665, 11587, 41926, 13556, 23956, 54320, 6661, 55766, 805};
 142
 143 static const LITTLENUM_TYPE minus_12[] =
 144 {
 145   33202, 45969, 58804, 56734, 16482, 26007, 44984, 49334, 31007, 32944,
 146   44517, 63329, 47131, 15291, 59465, 2264, 23218, 11829, 59771, 38798,
 147   31051, 28748, 23129, 40541, 41562, 35108, 50620, 59014, 51817, 6613};
 148 static const LITTLENUM_TYPE plus_12[] =
 149 {
 150   10098, 37922, 58070, 7432, 10470, 63465, 23718, 62190, 47420, 7009,
 151   38443, 4587, 45596, 38472, 52129, 52779, 29012, 13559, 48688, 31678,
 152   41753, 58662, 10668, 36067, 29906, 56906, 21461, 46556, 59571, 9};
 153
 154 static const LITTLENUM_TYPE minus_13[] =
 155 {
 156   45309, 27592, 37144, 34637, 34328, 41671, 34620, 24135, 53401, 22112,
 157   21576, 45147, 39310, 44051, 48572, 3676, 46544, 59768, 33350, 2323,
 158   49524, 61568, 3903, 36487, 36356, 30903, 14975, 9035, 29715, 667};
 159 static const LITTLENUM_TYPE plus_13[] =
 160 {
 161   18788, 16960, 6318, 45685, 55400, 46230, 35794, 25588, 7253, 55541,
 162   49716, 59760, 63592, 8191, 63765, 58530, 44667, 13294, 10001, 55586,
 163   47887, 18738, 9509, 40896, 42506, 52580, 4171, 325, 12329, 98};
 164
 165 /* Shut up complaints about differing pointer types.  They only differ
 166    in the const attribute, but there isn't any easy way to do this
 167    */
 168 #define X (LITTLENUM_TYPE *)
 169
 170 const FLONUM_TYPE flonum_negative_powers_of_ten[] =
 171 {
 172   {X zero, X zero, X zero, 0, '+'},
 173   {X minus_1, X minus_1 + 19, X minus_1 + 19, -20, '+'},
 174   {X minus_2, X minus_2 + 19, X minus_2 + 19, -20, '+'},
 175   {X minus_3, X minus_3 + 19, X minus_3 + 19, -20, '+'},
 176   {X minus_4, X minus_4 + 18, X minus_4 + 18, -20, '+'},
 177   {X minus_5, X minus_5 + 16, X minus_5 + 16, -20, '+'},
 178   {X minus_6, X minus_6 + 13, X minus_6 + 13, -20, '+'},
 179   {X minus_7, X minus_7 + 6, X minus_7 + 6, -20, '+'},
 180   {X minus_8, X minus_8 + 13, X minus_8 + 13, -40, '+'},
 181   {X minus_9, X minus_9 + 26, X minus_9 + 26, -80, '+'},
 182   {X minus_10, X minus_10 + 29, X minus_10 + 29, -136, '+'},
 183   {X minus_11, X minus_11 + 29, X minus_11 + 29, -242, '+'},
 184   {X minus_12, X minus_12 + 29, X minus_12 + 29, -455, '+'},
 185   {X minus_13, X minus_13 + 29, X minus_13 + 29, -880, '+'},
 186 };
 187
 188 const FLONUM_TYPE flonum_positive_powers_of_ten[] =
 189 {
 190   {X zero, X zero, X zero, 0, '+'},
 191   {X plus_1, X plus_1 + 0, X plus_1 + 0, 0, '+'},
 192   {X plus_2, X plus_2 + 0, X plus_2 + 0, 0, '+'},
 193   {X plus_3, X plus_3 + 0, X plus_3 + 0, 0, '+'},
 194   {X plus_4, X plus_4 + 1, X plus_4 + 1, 0, '+'},
 195   {X plus_5, X plus_5 + 2, X plus_5 + 2, 1, '+'},
 196   {X plus_6, X plus_6 + 4, X plus_6 + 4, 2, '+'},
 197   {X plus_7, X plus_7 + 9, X plus_7 + 9, 4, '+'},
 198   {X plus_8, X plus_8 + 18, X plus_8 + 18, 8, '+'},
 199   {X plus_9, X plus_9 + 29, X plus_9 + 29, 24, '+'},
 200   {X plus_10, X plus_10 + 29, X plus_10 + 29, 77, '+'},
 201   {X plus_11, X plus_11 + 29, X plus_11 + 29, 183, '+'},
 202   {X plus_12, X plus_12 + 29, X plus_12 + 29, 396, '+'},
 203   {X plus_13, X plus_13 + 29, X plus_13 + 29, 821, '+'},
 204 };
 205
 206 #ifdef VMS
 207 void dummy1 () { }
 208 #endif
 209 /* end of flonum_const.c */