From 5e0dafa7cfbb90c941fc771f0d157cf13dc1aa91 Mon Sep 17 00:00:00 2001 From: Xander Date: Sat, 19 Aug 2023 19:47:30 +0200 Subject: implement table --- kernel/prelude/SATS/safe_casts.sats | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'kernel/prelude/SATS') diff --git a/kernel/prelude/SATS/safe_casts.sats b/kernel/prelude/SATS/safe_casts.sats index f8e34db..8850ef6 100644 --- a/kernel/prelude/SATS/safe_casts.sats +++ b/kernel/prelude/SATS/safe_casts.sats @@ -1,4 +1,12 @@ castfn u2u64{v : nat | v <= 0xFFFFFFFFFFFFFFFF}(v : uint v) :<> uint64 v -castfn u64_to_Ptr0(v : uint64):<> Ptr0 castfn Ptr0_to_u64(v : Ptr0):<> uint64 + +castfn u64_to_Ptr1{n:nat | n > 0}(v : uint64 n):<> Ptr1 +castfn ulint_to_Ptr1{n: nat | n > 0}(v : ulint n):<> Ptr1 +castfn sz_to_Ptr1{n : nat | n > 0}(v : size_t n):<> Ptr1 + +castfn u64_to_Ptr0(v : uint64):<> Ptr0 +castfn ulint_to_Ptr0(v : ulint):<> Ptr0 castfn sz_to_Ptr0(v : size_t):<> Ptr0 + +castfn Ptr1_to_sz(v : Ptr1):<> sizeGte(1) -- cgit v1.2.3