1*4882a593Smuzhiyun // SPDX-License-Identifier: GPL-2.0-only
2*4882a593Smuzhiyun /*
3*4882a593Smuzhiyun * Some debug functions
4*4882a593Smuzhiyun *
5*4882a593Smuzhiyun * MIPS floating point support
6*4882a593Smuzhiyun *
7*4882a593Smuzhiyun * Copyright (C) 1994-2000 Algorithmics Ltd.
8*4882a593Smuzhiyun *
9*4882a593Smuzhiyun * Nov 7, 2000
10*4882a593Smuzhiyun * Modified to build and operate in Linux kernel environment.
11*4882a593Smuzhiyun *
12*4882a593Smuzhiyun * Kevin D. Kissell, kevink@mips.com and Carsten Langgaard, carstenl@mips.com
13*4882a593Smuzhiyun * Copyright (C) 2000 MIPS Technologies, Inc. All rights reserved.
14*4882a593Smuzhiyun */
15*4882a593Smuzhiyun
16*4882a593Smuzhiyun #include <linux/types.h>
17*4882a593Smuzhiyun #include <linux/printk.h>
18*4882a593Smuzhiyun #include "ieee754.h"
19*4882a593Smuzhiyun #include "ieee754sp.h"
20*4882a593Smuzhiyun #include "ieee754dp.h"
21*4882a593Smuzhiyun
ieee754dp_dump(char * m,union ieee754dp x)22*4882a593Smuzhiyun union ieee754dp ieee754dp_dump(char *m, union ieee754dp x)
23*4882a593Smuzhiyun {
24*4882a593Smuzhiyun int i;
25*4882a593Smuzhiyun
26*4882a593Smuzhiyun printk("%s", m);
27*4882a593Smuzhiyun printk("<%08x,%08x>\n", (unsigned) (x.bits >> 32),
28*4882a593Smuzhiyun (unsigned) x.bits);
29*4882a593Smuzhiyun printk("\t=");
30*4882a593Smuzhiyun switch (ieee754dp_class(x)) {
31*4882a593Smuzhiyun case IEEE754_CLASS_QNAN:
32*4882a593Smuzhiyun case IEEE754_CLASS_SNAN:
33*4882a593Smuzhiyun printk("Nan %c", DPSIGN(x) ? '-' : '+');
34*4882a593Smuzhiyun for (i = DP_FBITS - 1; i >= 0; i--)
35*4882a593Smuzhiyun printk("%c", DPMANT(x) & DP_MBIT(i) ? '1' : '0');
36*4882a593Smuzhiyun break;
37*4882a593Smuzhiyun case IEEE754_CLASS_INF:
38*4882a593Smuzhiyun printk("%cInfinity", DPSIGN(x) ? '-' : '+');
39*4882a593Smuzhiyun break;
40*4882a593Smuzhiyun case IEEE754_CLASS_ZERO:
41*4882a593Smuzhiyun printk("%cZero", DPSIGN(x) ? '-' : '+');
42*4882a593Smuzhiyun break;
43*4882a593Smuzhiyun case IEEE754_CLASS_DNORM:
44*4882a593Smuzhiyun printk("%c0.", DPSIGN(x) ? '-' : '+');
45*4882a593Smuzhiyun for (i = DP_FBITS - 1; i >= 0; i--)
46*4882a593Smuzhiyun printk("%c", DPMANT(x) & DP_MBIT(i) ? '1' : '0');
47*4882a593Smuzhiyun printk("e%d", DPBEXP(x) - DP_EBIAS);
48*4882a593Smuzhiyun break;
49*4882a593Smuzhiyun case IEEE754_CLASS_NORM:
50*4882a593Smuzhiyun printk("%c1.", DPSIGN(x) ? '-' : '+');
51*4882a593Smuzhiyun for (i = DP_FBITS - 1; i >= 0; i--)
52*4882a593Smuzhiyun printk("%c", DPMANT(x) & DP_MBIT(i) ? '1' : '0');
53*4882a593Smuzhiyun printk("e%d", DPBEXP(x) - DP_EBIAS);
54*4882a593Smuzhiyun break;
55*4882a593Smuzhiyun default:
56*4882a593Smuzhiyun printk("Illegal/Unknown IEEE754 value class");
57*4882a593Smuzhiyun }
58*4882a593Smuzhiyun printk("\n");
59*4882a593Smuzhiyun return x;
60*4882a593Smuzhiyun }
61*4882a593Smuzhiyun
ieee754sp_dump(char * m,union ieee754sp x)62*4882a593Smuzhiyun union ieee754sp ieee754sp_dump(char *m, union ieee754sp x)
63*4882a593Smuzhiyun {
64*4882a593Smuzhiyun int i;
65*4882a593Smuzhiyun
66*4882a593Smuzhiyun printk("%s=", m);
67*4882a593Smuzhiyun printk("<%08x>\n", (unsigned) x.bits);
68*4882a593Smuzhiyun printk("\t=");
69*4882a593Smuzhiyun switch (ieee754sp_class(x)) {
70*4882a593Smuzhiyun case IEEE754_CLASS_QNAN:
71*4882a593Smuzhiyun case IEEE754_CLASS_SNAN:
72*4882a593Smuzhiyun printk("Nan %c", SPSIGN(x) ? '-' : '+');
73*4882a593Smuzhiyun for (i = SP_FBITS - 1; i >= 0; i--)
74*4882a593Smuzhiyun printk("%c", SPMANT(x) & SP_MBIT(i) ? '1' : '0');
75*4882a593Smuzhiyun break;
76*4882a593Smuzhiyun case IEEE754_CLASS_INF:
77*4882a593Smuzhiyun printk("%cInfinity", SPSIGN(x) ? '-' : '+');
78*4882a593Smuzhiyun break;
79*4882a593Smuzhiyun case IEEE754_CLASS_ZERO:
80*4882a593Smuzhiyun printk("%cZero", SPSIGN(x) ? '-' : '+');
81*4882a593Smuzhiyun break;
82*4882a593Smuzhiyun case IEEE754_CLASS_DNORM:
83*4882a593Smuzhiyun printk("%c0.", SPSIGN(x) ? '-' : '+');
84*4882a593Smuzhiyun for (i = SP_FBITS - 1; i >= 0; i--)
85*4882a593Smuzhiyun printk("%c", SPMANT(x) & SP_MBIT(i) ? '1' : '0');
86*4882a593Smuzhiyun printk("e%d", SPBEXP(x) - SP_EBIAS);
87*4882a593Smuzhiyun break;
88*4882a593Smuzhiyun case IEEE754_CLASS_NORM:
89*4882a593Smuzhiyun printk("%c1.", SPSIGN(x) ? '-' : '+');
90*4882a593Smuzhiyun for (i = SP_FBITS - 1; i >= 0; i--)
91*4882a593Smuzhiyun printk("%c", SPMANT(x) & SP_MBIT(i) ? '1' : '0');
92*4882a593Smuzhiyun printk("e%d", SPBEXP(x) - SP_EBIAS);
93*4882a593Smuzhiyun break;
94*4882a593Smuzhiyun default:
95*4882a593Smuzhiyun printk("Illegal/Unknown IEEE754 value class");
96*4882a593Smuzhiyun }
97*4882a593Smuzhiyun printk("\n");
98*4882a593Smuzhiyun return x;
99*4882a593Smuzhiyun }
100