ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-08-04 06:38:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix floattidf

Browse Source
This commit is contained in:
gingerBill
2021-04-14 20:45:05 +01:00
parent 05a181d719
commit e19958152a
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
core/runtime/internal_linux.odin
+7 -7
View File
@@ -103,7 +103,7 @@ floattidf :: proc(a: i128) -> f64 {
s := a >> (N-1); s := a >> (N-1);
a = (a ~ s) - s; a = (a ~ s) - s;
sd: = N - _clz_i128(a); // number of significant digits sd: = N - _clz_i128(a); // number of significant digits
e := u32(sd - 1); // exponent e := u32(sd - 1); // exponent
if sd > DBL_MANT_DIG { if sd > DBL_MANT_DIG {
switch sd { switch sd {
case DBL_MANT_DIG + 1: case DBL_MANT_DIG + 1:
@@ -115,8 +115,8 @@ floattidf :: proc(a: i128) -> f64 {
i128(u128(a) & (~u128(0) >> u128(N + DBL_MANT_DIG+2 - sd)) != 0); i128(u128(a) & (~u128(0) >> u128(N + DBL_MANT_DIG+2 - sd)) != 0);
}; };
a |= i128((a & 4) != 0); a |= i128((a & 4) != 0);
a += 1; a += 1;
a >>= 2; a >>= 2;
if a & (1 << DBL_MANT_DIG) != 0 { if a & (1 << DBL_MANT_DIG) != 0 {
@@ -127,9 +127,9 @@ floattidf :: proc(a: i128) -> f64 {
a <<= u128(DBL_MANT_DIG - sd); a <<= u128(DBL_MANT_DIG - sd);
} }
fb: [2]u32; fb: [2]u32;
fb[1] = (u32(s) & 0x80000000) | // sign fb[1] = (u32(s) & 0x80000000) | // sign
((e + 1023) << 20) | // exponent ((e + 1023) << 20) | // exponent
((u32(a) >> 32) & 0x000FFFFF); // mantissa-high u32((u64(a) >> 32) & 0x000FFFFF); // mantissa-high
fb[1] = u32(a); // mantissa-low fb[1] = u32(a); // mantissa-low
return transmute(f64)fb; return transmute(f64)fb;
} }
core/runtime/internal_windows.odin
+4 -4
View File
@@ -127,9 +127,9 @@ floattidf :: proc(a: i128) -> f64 {
a <<= u128(DBL_MANT_DIG - sd); a <<= u128(DBL_MANT_DIG - sd);
} }
fb: [2]u32; fb: [2]u32;
fb[1] = (u32(s) & 0x80000000) | // sign fb[1] = (u32(s) & 0x80000000) | // sign
((e + 1023) << 20) | // exponent ((e + 1023) << 20) | // exponent
((u32(a) >> 32) & 0x000FFFFF); // mantissa-high u32((u64(a) >> 32) & 0x000FFFFF); // mantissa-high
fb[1] = u32(a); // mantissa-low fb[1] = u32(a); // mantissa-low
return transmute(f64)fb; return transmute(f64)fb;
} }