summaryrefslogtreecommitdiff
path: root/aarch64/mono/CountLeadingSignBits.sail
diff options
context:
space:
mode:
authorBrian Campbell2018-02-16 15:57:27 +0000
committerBrian Campbell2018-02-16 15:58:21 +0000
commitd864aa242ac00ecee08d6d2792a0803ba5450d86 (patch)
tree8a7ee43bff6dc10cc3a48cac871ddbe78b74bf97 /aarch64/mono/CountLeadingSignBits.sail
parent00ca0aa4dce0abdcba574ce907e9a8a62d9d2255 (diff)
Add alternative definitions of aarch64 functions for monomorphisation
Diffstat (limited to 'aarch64/mono/CountLeadingSignBits.sail')
-rw-r--r--aarch64/mono/CountLeadingSignBits.sail3
1 files changed, 3 insertions, 0 deletions
diff --git a/aarch64/mono/CountLeadingSignBits.sail b/aarch64/mono/CountLeadingSignBits.sail
new file mode 100644
index 00000000..8470da75
--- /dev/null
+++ b/aarch64/mono/CountLeadingSignBits.sail
@@ -0,0 +1,3 @@
+val CountLeadingSignBits : forall ('N : Int), 'N >= 3. bits('N) -> int
+
+function CountLeadingSignBits x = return(CountLeadingZeroBits((x >> 1) ^ (x & slice_mask(0,'N))))