^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) /* IEEE754 floating point arithmetic
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 3) * double precision: common utilities
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 4) */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 5) /*
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 6) * MIPS floating point support
^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)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 10) #include "ieee754dp.h"
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 11)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 12) union ieee754dp ieee754dp_fint(int x)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 13) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 14) u64 xm;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 15) int xe;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 16) int xs;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 17)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 18) ieee754_clearcx();
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 19)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 20) if (x == 0)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 21) return ieee754dp_zero(0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 22) if (x == 1 || x == -1)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 23) return ieee754dp_one(x < 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 24) if (x == 10 || x == -10)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 25) return ieee754dp_ten(x < 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 26)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 27) xs = (x < 0);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 28) if (xs) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 29) if (x == (1 << 31))
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 30) xm = ((unsigned) 1 << 31); /* max neg can't be safely negated */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 31) else
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 32) xm = -x;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 33) } else {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 34) xm = x;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 35) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 36)
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 37) /* normalize - result can never be inexact or overflow */
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 38) xe = DP_FBITS;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 39) while ((xm >> DP_FBITS) == 0) {
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 40) xm <<= 1;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 41) xe--;
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 42) }
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 43) return builddp(xs, xe + DP_EBIAS, xm & ~DP_HIDDEN_BIT);
^8f3ce5b39 (kx 2023-10-28 12:00:06 +0300 44) }