language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-08-04 04:08:19 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

f32FromParts and f64FromParts for repl

Browse source
This commit is contained in:
Fabian Schmalzried 2024-03-16 15:10:29 +01:00
parent 473b8ef2d3
commit 11998b9cc8
No known key found for this signature in database
GPG key ID: D691D5DA4CEF42E7
12 changed files with 48 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
crates/compiler/builtins/bitcode/src/main.zig
View file

@ -113,6 +113,8 @@ comptime {
exportNumFn(num.greaterThanOrEqualU128, "greater_than_or_equal.u128");
exportNumFn(num.f32ToParts, "f32_to_parts");
exportNumFn(num.f64ToParts, "f64_to_parts");
exportNumFn(num.f32FromParts, "f32_from_parts");
exportNumFn(num.f64FromParts, "f64_from_parts");
inline for (INTEGERS, 0..) |T, i| {
num.exportPow(T, ROC_BUILTINS ++ "." ++ NUM ++ ".pow_int.");

8
crates/compiler/builtins/bitcode/src/num.zig
View file

@ -660,3 +660,11 @@ pub fn f64ToParts(self: f64) callconv(.C) F64Parts {
.sign = u64Value >> 63 & 1 == 1,
};
}
pub fn f32FromParts(parts: F32Parts) callconv(.C) f32 {
return @as(f32, @bitCast(parts.fraction | (@as(u32, parts.exponent) << 23) | (@as(u32, @intFromBool(parts.sign)) << 31)));
}
pub fn f64FromParts(parts: F64Parts) callconv(.C) f64 {
return @as(f64, @bitCast(parts.fraction | (@as(u64, parts.exponent) << 52) | (@as(u64, @intFromBool(parts.sign)) << 63)));
}

10
crates/compiler/builtins/roc/Num.roc
View file

@ -153,7 +153,9 @@ interface Num
withoutDecimalPoint,
withDecimalPoint,
f32ToParts,
f64ToParts
f64ToParts,
f32FromParts,
f64FromParts
]
imports [
Bool.{ Bool },
@ -1420,4 +1422,8 @@ withDecimalPoint : I128 -> Dec
f32ToParts: F32 -> { sign : Bool, exponent : U8, fraction : U32 }
f64ToParts: F64 -> { sign : Bool, exponent : U16, fraction : U64 }
f64ToParts: F64 -> { sign : Bool, exponent : U16, fraction : U64 }
f32FromParts: { sign : Bool, exponent : U8, fraction : U32 } -> F32
f64FromParts: { sign : Bool, exponent : U16, fraction : U64 } -> F64

2
crates/compiler/builtins/src/bitcode.rs
View file

@ -336,6 +336,8 @@ pub const NUM_COUNT_TRAILING_ZERO_BITS: IntrinsicName =
pub const NUM_COUNT_ONE_BITS: IntrinsicName = int_intrinsic!("roc_builtins.num.count_one_bits");
pub const NUM_F32_TO_PARTS: &str = "roc_builtins.num.f32_to_parts";
pub const NUM_F64_TO_PARTS: &str = "roc_builtins.num.f64_to_parts";
pub const NUM_F32_FROM_PARTS: &str = "roc_builtins.num.f32_from_parts";
pub const NUM_F64_FROM_PARTS: &str = "roc_builtins.num.f64_from_parts";
pub const STR_INIT: &str = "roc_builtins.str.init";
pub const STR_COUNT_SEGMENTS: &str = "roc_builtins.str.count_segments";