mips/math-emu/ieee754.c

0001 // SPDX-License-Identifier: GPL-2.0-only
0002 /* ieee754 floating point arithmetic
0003  * single and double precision
0004  *
0005  * BUGS
0006  * not much dp done
0007  * doesn't generate IEEE754_INEXACT
0008  */
0009 /*
0010  * MIPS floating point support
0011  * Copyright (C) 1994-2000 Algorithmics Ltd.
0012  */
0013
0014 #include <linux/compiler.h>
0015
0016 #include "ieee754.h"
0017 #include "ieee754sp.h"
0018 #include "ieee754dp.h"
0019
0020 /*
0021  * Special constants
0022  */
0023
0024 /*
0025  * Older GCC requires the inner braces for initialization of union ieee754dp's
0026  * anonymous struct member.  Without an error will result.
0027  */
0028 #define xPCNST(s, b, m, ebias)                      \
0029 {                                   \
0030     {                               \
0031         .sign   = (s),                      \
0032         .bexp   = (b) + ebias,                  \
0033         .mant   = (m)                       \
0034     }                               \
0035 }
0036
0037 #define DPCNST(s, b, m)                         \
0038     xPCNST(s, b, m, DP_EBIAS)
0039
0040 const union ieee754dp __ieee754dp_spcvals[] = {
0041     DPCNST(0, DP_EMIN - 1, 0x0000000000000ULL), /* + zero   */
0042     DPCNST(1, DP_EMIN - 1, 0x0000000000000ULL), /* - zero   */
0043     DPCNST(0, 0,           0x0000000000000ULL), /* + 1.0   */
0044     DPCNST(1, 0,           0x0000000000000ULL), /* - 1.0   */
0045     DPCNST(0, 3,           0x4000000000000ULL), /* + 10.0   */
0046     DPCNST(1, 3,           0x4000000000000ULL), /* - 10.0   */
0047     DPCNST(0, DP_EMAX + 1, 0x0000000000000ULL), /* + infinity */
0048     DPCNST(1, DP_EMAX + 1, 0x0000000000000ULL), /* - infinity */
0049     DPCNST(0, DP_EMAX + 1, 0x7FFFFFFFFFFFFULL), /* + ind legacy qNaN */
0050     DPCNST(0, DP_EMAX + 1, 0x8000000000000ULL), /* + indef 2008 qNaN */
0051     DPCNST(0, DP_EMAX,     0xFFFFFFFFFFFFFULL), /* + max */
0052     DPCNST(1, DP_EMAX,     0xFFFFFFFFFFFFFULL), /* - max */
0053     DPCNST(0, DP_EMIN,     0x0000000000000ULL), /* + min normal */
0054     DPCNST(1, DP_EMIN,     0x0000000000000ULL), /* - min normal */
0055     DPCNST(0, DP_EMIN - 1, 0x0000000000001ULL), /* + min denormal */
0056     DPCNST(1, DP_EMIN - 1, 0x0000000000001ULL), /* - min denormal */
0057     DPCNST(0, 31,          0x0000000000000ULL), /* + 1.0e31 */
0058     DPCNST(0, 63,          0x0000000000000ULL), /* + 1.0e63 */
0059 };
0060
0061 #define SPCNST(s, b, m)                         \
0062     xPCNST(s, b, m, SP_EBIAS)
0063
0064 const union ieee754sp __ieee754sp_spcvals[] = {
0065     SPCNST(0, SP_EMIN - 1, 0x000000),   /* + zero   */
0066     SPCNST(1, SP_EMIN - 1, 0x000000),   /* - zero   */
0067     SPCNST(0, 0,           0x000000),   /* + 1.0   */
0068     SPCNST(1, 0,           0x000000),   /* - 1.0   */
0069     SPCNST(0, 3,           0x200000),   /* + 10.0   */
0070     SPCNST(1, 3,           0x200000),   /* - 10.0   */
0071     SPCNST(0, SP_EMAX + 1, 0x000000),   /* + infinity */
0072     SPCNST(1, SP_EMAX + 1, 0x000000),   /* - infinity */
0073     SPCNST(0, SP_EMAX + 1, 0x3FFFFF),   /* + indef legacy quiet NaN */
0074     SPCNST(0, SP_EMAX + 1, 0x400000),   /* + indef 2008 quiet NaN */
0075     SPCNST(0, SP_EMAX,     0x7FFFFF),   /* + max normal */
0076     SPCNST(1, SP_EMAX,     0x7FFFFF),   /* - max normal */
0077     SPCNST(0, SP_EMIN,     0x000000),   /* + min normal */
0078     SPCNST(1, SP_EMIN,     0x000000),   /* - min normal */
0079     SPCNST(0, SP_EMIN - 1, 0x000001),   /* + min denormal */
0080     SPCNST(1, SP_EMIN - 1, 0x000001),   /* - min denormal */
0081     SPCNST(0, 31,          0x000000),   /* + 1.0e31 */
0082     SPCNST(0, 63,          0x000000),   /* + 1.0e63 */
0083 };