* Copyright (c) 1982 Regents of the University of California
static char sccsid
[] = "@(#)floattab.c 4.3 %G%";
struct ty_bigdesc ty_bigdesc
[] = {
{ 15, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, 0 },
8, /* mantissa sig bits */
0, /* exponent sig bits */
{ 14, 15, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, 0, 1 },
16, /* mantissa sig bits */
0, /* exponent sig bits */
16, /* exponent excess */
{ 12, 13, 14, 15, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, 0, 1, 2, 3 },
32, /* mantissa sig bits */
0, /* exponent sig bits */
32, /* exponent excess */
{ 8, 9, 10, 11, 12, 13, 14, 15, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, 0, 1, 2, 3, 4, 5, 6, 7 },
64, /* mantissa sig bits */
0, /* exponent sig bits */
64, /* exponent excess */
{ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 },
{ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 },
128, /* mantissa sig bits */
0, /* exponent sig bits */
128, /* exponent excess */
{ 15, N
, 13, 14, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, N
, 2, 3, 0 },
24, /* mantissa sig bits */
8, /* exponent sig bits */
128 /* exponent excess */
{ 15, N
, 13, 14, 11, 12, 9, 10, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, N
, 6, 7, 4, 5, 2, 3, 0 },
56, /* mantissa sig bits */
8, /* exponent sig bits */
128 /* exponent excess */
{ 15, N
, 13, 14, 11, 12, 9, 10, N
, N
, N
, N
, N
, N
, N
, N
},
{ N
, N
, N
, N
, N
, N
, N
, N
, N
, 6, 7, 4, 5, 2, 3, 0 },
53, /* mantissa sig bits */
11, /* exponent sig bits */
1024 /* exponent excess */
{ N
, N
, 14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3 },
{ N
, N
, 14, 15, 12, 13, 10, 11, 8, 9, 6, 7, 4, 5, 2, 3 },
113, /* mantissa sig bits */
15, /* exponent sig bits */
16384 /* exponent excess */
reg
struct ty_bigdesc
*p
;
for (i
= 0; i
< TYPNONE
- 1; i
++){
for (j
= 0; j
< 16; j
++){
if (((char)p
->b_upmmap
[j
]) != NOTAKE
){
k
= p
->b_pmmap
[p
->b_upmmap
[j
]];
printf("%s:p[up[%d]] == %d\n",
if (((char)p
->b_pmmap
[j
]) != NOTAKE
){
k
= p
->b_upmmap
[p
->b_pmmap
[j
]];
printf("%s:up[p[%d]] == %d\n",
k
= (p
->b_msigbits
- 1) + p
->b_mlshift
;
printf("sigbits: %d, lshift: %d, excess: %d\n",
p
->b_msigbits
, p
->b_mlshift
, k
% 8);
if ( (8 - (p
->b_mlshift
+ 2)) <= 0)
printf("Shifted byte 15 into byte 14");
if ( 1 << (p
->b_esigbits
- 1) != p
->b_eexcess
)
printf("sigbits == %d, excess = %d\n",
p
->b_esigbits
, p
->b_eexcess
);