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