mirror of https://github.com/Qortal/Brooklyn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
52 lines
960 B
52 lines
960 B
// SPDX-License-Identifier: GPL-2.0-only |
|
/* IEEE754 floating point arithmetic |
|
* single precision |
|
*/ |
|
/* |
|
* MIPS floating point support |
|
* Copyright (C) 1994-2000 Algorithmics Ltd. |
|
*/ |
|
|
|
#include "ieee754sp.h" |
|
|
|
union ieee754sp ieee754sp_flong(s64 x) |
|
{ |
|
u64 xm; /* <--- need 64-bit mantissa temp */ |
|
int xe; |
|
int xs; |
|
|
|
ieee754_clearcx(); |
|
|
|
if (x == 0) |
|
return ieee754sp_zero(0); |
|
if (x == 1 || x == -1) |
|
return ieee754sp_one(x < 0); |
|
if (x == 10 || x == -10) |
|
return ieee754sp_ten(x < 0); |
|
|
|
xs = (x < 0); |
|
if (xs) { |
|
if (x == (1ULL << 63)) |
|
xm = (1ULL << 63); /* max neg can't be safely negated */ |
|
else |
|
xm = -x; |
|
} else { |
|
xm = x; |
|
} |
|
xe = SP_FBITS + 3; |
|
|
|
if (xm >> (SP_FBITS + 1 + 3)) { |
|
/* shunt out overflow bits |
|
*/ |
|
while (xm >> (SP_FBITS + 1 + 3)) { |
|
SPXSRSX1(); |
|
} |
|
} else { |
|
/* normalize in grs extended single precision */ |
|
while ((xm >> (SP_FBITS + 3)) == 0) { |
|
xm <<= 1; |
|
xe--; |
|
} |
|
} |
|
return ieee754sp_format(xs, xe, xm); |
|
}
|
|
|