From 8ac12886ed90298f3de1e4685153b90bb67fd6db Mon Sep 17 00:00:00 2001
From: gingerBill <bill@gingerbill.org>
Date: Wed, 25 May 2022 21:30:10 +0100
Subject: [PATCH] Add `core:simd`

---
 core/simd/simd.odin        | 58 ++++++++++++++++++++++++++++++++++++++
 examples/all/all_main.odin |  1 +
 2 files changed, 59 insertions(+)
 create mode 100644 core/simd/simd.odin

diff --git a/core/simd/simd.odin b/core/simd/simd.odin
new file mode 100644
index 000000000..87386f91f
--- /dev/null
+++ b/core/simd/simd.odin
@@ -0,0 +1,58 @@
+package simd
+
+import "core:intrinsics"
+
+add        :: intrinsics.simd_add
+sub        :: intrinsics.simd_sub
+mul        :: intrinsics.simd_mul
+div        :: intrinsics.simd_div
+rem        :: intrinsics.simd_rem
+
+// Keeps Odin's Behaviour
+// (x << y) if y <= mask else 0
+shl        :: intrinsics.simd_shl
+shr        :: intrinsics.simd_shr
+
+// Similar to C's Behaviour
+// x << (y & mask)
+shl_masked :: intrinsics.simd_shl_masked
+shr_masked :: intrinsics.simd_shr_masked
+
+and     :: intrinsics.simd_and
+or      :: intrinsics.simd_or
+xor     :: intrinsics.simd_xor
+neg     :: intrinsics.simd_neg
+abs     :: intrinsics.simd_abs
+min     :: intrinsics.simd_min
+max     :: intrinsics.simd_max
+eq      :: intrinsics.simd_eq
+ne      :: intrinsics.simd_ne
+lt      :: intrinsics.simd_lt
+le      :: intrinsics.simd_le
+gt      :: intrinsics.simd_gt
+ge      :: intrinsics.simd_ge
+extract :: intrinsics.simd_extract
+replace :: intrinsics.simd_replace
+
+splat :: #force_inline proc "contextless" ($T: typeid/#simd[$LANES]$E, value: E) -> T {
+	return T{0..<LANES = value}
+}
+
+to_array_ptr :: #force_inline proc "contextless" (v: ^#simd[$LANES]$E) -> ^[LANES]E {
+	return (^[LANES]E)(v)
+}
+to_array :: #force_inline proc "contextless" (v: #simd[$LANES]$E) -> [LANES]E {
+	return transmute([LANES]E)(v)
+}
+from_array :: #force_inline proc "contextless" (v: $A/[$LANES]$E) -> #simd[LANES]E where LANES & (LANES-1) == 0 {
+	return transmute(#simd[LANES]E)v
+}
+
+from_slice :: proc($T: typeid/#simd[$LANES]$E, slice: []E) -> T where LANES & (LANES-1) == 0 {
+	assert(len(slice) >= LANES, "slice length must be a least the number of lanes")
+	array: [LANES]E
+	#no_bounds_check for i in 0..<LANES {
+		array[i] = slice[i]
+	}
+	return transmute(T)array
+}
diff --git a/examples/all/all_main.odin b/examples/all/all_main.odin
index 36326b48e..94a841a26 100644
--- a/examples/all/all_main.odin
+++ b/examples/all/all_main.odin
@@ -96,6 +96,7 @@ import filepath       "core:path/filepath"
 
 import reflect        "core:reflect"
 import runtime        "core:runtime"
+import simd           "core:simd"
 import slice          "core:slice"
 import sort           "core:sort"
 import strconv        "core:strconv"