summaryrefslogtreecommitdiff
path: root/aarch64/mono/SignExtend__0.sail
diff options
context:
space:
mode:
Diffstat (limited to 'aarch64/mono/SignExtend__0.sail')
-rw-r--r--aarch64/mono/SignExtend__0.sail7
1 files changed, 7 insertions, 0 deletions
diff --git a/aarch64/mono/SignExtend__0.sail b/aarch64/mono/SignExtend__0.sail
new file mode 100644
index 00000000..1d5449c9
--- /dev/null
+++ b/aarch64/mono/SignExtend__0.sail
@@ -0,0 +1,7 @@
+val SignExtend__0 : forall ('M : Int) ('N : Int), 'M >= 0 & 'N >= 0.
+ (bits('M), atom('N)) -> bits('N) effect {escape}
+
+function SignExtend__0 (x, N) = {
+ assert('N >= 'M);
+ return(extsv(x))
+}