1 /*
2  * Some debug functions
3  *
4  * MIPS floating point support
5  *
6  * Copyright (C) 1994-2000 Algorithmics Ltd.
7  *
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.
11  *
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
15  *  for more details.
16  *
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.
20  *
21  *  Nov 7, 2000
22  *  Modified to build and operate in Linux kernel environment.
23  *
24  *  Kevin D. Kissell, kevink@mips.com and Carsten Langgaard, carstenl@mips.com
25  *  Copyright (C) 2000 MIPS Technologies, Inc. All rights reserved.
26  */
27 
28 #include <linux/kernel.h>
29 #include "ieee754.h"
30 
31 #define DP_EBIAS	1023
32 #define DP_EMIN		(-1022)
33 #define DP_EMAX		1023
34 #define DP_FBITS	52
35 
36 #define SP_EBIAS	127
37 #define SP_EMIN		(-126)
38 #define SP_EMAX		127
39 #define SP_FBITS	23
40 
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)
44 
45 
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)
49 
50 
51 #define SPSIGN(sp)	(sp.parts.sign)
52 #define SPBEXP(sp)	(sp.parts.bexp)
53 #define SPMANT(sp)	(sp.parts.mant)
54 
55 #define DPSIGN(dp)	(dp.parts.sign)
56 #define DPBEXP(dp)	(dp.parts.bexp)
57 #define DPMANT(dp)	(dp.parts.mant)
58 
ieee754dp_dump(char * m,ieee754dp x)59 ieee754dp ieee754dp_dump(char *m, ieee754dp x)
60 {
61 	int i;
62 
63 	printk("%s", m);
64 	printk("<%08x,%08x>\n", (unsigned) (x.bits >> 32),
65 	       (unsigned) x.bits);
66 	printk("\t=");
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');
73 		break;
74 	case IEEE754_CLASS_INF:
75 		printk("%cInfinity", DPSIGN(x) ? '-' : '+');
76 		break;
77 	case IEEE754_CLASS_ZERO:
78 		printk("%cZero", DPSIGN(x) ? '-' : '+');
79 		break;
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);
85 		break;
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);
91 		break;
92 	default:
93 		printk("Illegal/Unknown IEEE754 value class");
94 	}
95 	printk("\n");
96 	return x;
97 }
98 
ieee754sp_dump(char * m,ieee754sp x)99 ieee754sp ieee754sp_dump(char *m, ieee754sp x)
100 {
101 	int i;
102 
103 	printk("%s=", m);
104 	printk("<%08x>\n", (unsigned) x.bits);
105 	printk("\t=");
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');
112 		break;
113 	case IEEE754_CLASS_INF:
114 		printk("%cInfinity", SPSIGN(x) ? '-' : '+');
115 		break;
116 	case IEEE754_CLASS_ZERO:
117 		printk("%cZero", SPSIGN(x) ? '-' : '+');
118 		break;
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);
124 		break;
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);
130 		break;
131 	default:
132 		printk("Illegal/Unknown IEEE754 value class");
133 	}
134 	printk("\n");
135 	return x;
136 }
137