4 * MIPS floating point support
6 * Copyright (C) 1994-2000 Algorithmics Ltd.
8 * This program is free software; you can distribute it and/or modify it
9 * under the terms of the GNU General Public License (Version 2) as
10 * published by the Free Software Foundation.
12 * This program is distributed in the hope it will be useful, but WITHOUT
13 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 * You should have received a copy of the GNU General Public License along
18 * with this program; if not, write to the Free Software Foundation, Inc.,
19 * 59 Temple Place - Suite 330, Boston MA 02111-1307, USA.
22 * Modified to build and operate in Linux kernel environment.
24 * Kevin D. Kissell, kevink@mips.com and Carsten Langgaard, carstenl@mips.com
25 * Copyright (C) 2000 MIPS Technologies, Inc. All rights reserved.
28 #include <linux/kernel.h>
32 #define DP_EMIN (-1022)
37 #define SP_EMIN (-126)
41 #define DP_MBIT(x) ((u64)1 << (x))
42 #define DP_HIDDEN_BIT DP_MBIT(DP_FBITS)
43 #define DP_SIGN_BIT DP_MBIT(63)
46 #define SP_MBIT(x) ((u32)1 << (x))
47 #define SP_HIDDEN_BIT SP_MBIT(SP_FBITS)
48 #define SP_SIGN_BIT SP_MBIT(31)
51 #define SPSIGN(sp) (sp.parts.sign)
52 #define SPBEXP(sp) (sp.parts.bexp)
53 #define SPMANT(sp) (sp.parts.mant)
55 #define DPSIGN(dp) (dp.parts.sign)
56 #define DPBEXP(dp) (dp.parts.bexp)
57 #define DPMANT(dp) (dp.parts.mant)
59 ieee754dp
ieee754dp_dump(char *m
, ieee754dp x
)
64 printk("<%08x,%08x>\n", (unsigned) (x
.bits
>> 32),
67 switch (ieee754dp_class(x
)) {
68 case IEEE754_CLASS_QNAN
:
69 case IEEE754_CLASS_SNAN
:
70 printk("Nan %c", DPSIGN(x
) ? '-' : '+');
71 for (i
= DP_FBITS
- 1; i
>= 0; i
--)
72 printk("%c", DPMANT(x
) & DP_MBIT(i
) ? '1' : '0');
74 case IEEE754_CLASS_INF
:
75 printk("%cInfinity", DPSIGN(x
) ? '-' : '+');
77 case IEEE754_CLASS_ZERO
:
78 printk("%cZero", DPSIGN(x
) ? '-' : '+');
80 case IEEE754_CLASS_DNORM
:
81 printk("%c0.", DPSIGN(x
) ? '-' : '+');
82 for (i
= DP_FBITS
- 1; i
>= 0; i
--)
83 printk("%c", DPMANT(x
) & DP_MBIT(i
) ? '1' : '0');
84 printk("e%d", DPBEXP(x
) - DP_EBIAS
);
86 case IEEE754_CLASS_NORM
:
87 printk("%c1.", DPSIGN(x
) ? '-' : '+');
88 for (i
= DP_FBITS
- 1; i
>= 0; i
--)
89 printk("%c", DPMANT(x
) & DP_MBIT(i
) ? '1' : '0');
90 printk("e%d", DPBEXP(x
) - DP_EBIAS
);
93 printk("Illegal/Unknown IEEE754 value class");
99 ieee754sp
ieee754sp_dump(char *m
, ieee754sp x
)
104 printk("<%08x>\n", (unsigned) x
.bits
);
106 switch (ieee754sp_class(x
)) {
107 case IEEE754_CLASS_QNAN
:
108 case IEEE754_CLASS_SNAN
:
109 printk("Nan %c", SPSIGN(x
) ? '-' : '+');
110 for (i
= SP_FBITS
- 1; i
>= 0; i
--)
111 printk("%c", SPMANT(x
) & SP_MBIT(i
) ? '1' : '0');
113 case IEEE754_CLASS_INF
:
114 printk("%cInfinity", SPSIGN(x
) ? '-' : '+');
116 case IEEE754_CLASS_ZERO
:
117 printk("%cZero", SPSIGN(x
) ? '-' : '+');
119 case IEEE754_CLASS_DNORM
:
120 printk("%c0.", SPSIGN(x
) ? '-' : '+');
121 for (i
= SP_FBITS
- 1; i
>= 0; i
--)
122 printk("%c", SPMANT(x
) & SP_MBIT(i
) ? '1' : '0');
123 printk("e%d", SPBEXP(x
) - SP_EBIAS
);
125 case IEEE754_CLASS_NORM
:
126 printk("%c1.", SPSIGN(x
) ? '-' : '+');
127 for (i
= SP_FBITS
- 1; i
>= 0; i
--)
128 printk("%c", SPMANT(x
) & SP_MBIT(i
) ? '1' : '0');
129 printk("e%d", SPBEXP(x
) - SP_EBIAS
);
132 printk("Illegal/Unknown IEEE754 value class");
This page took 0.033036 seconds and 5 git commands to generate.