summaryrefslogtreecommitdiff
path: root/src/gen_lib/sail_operators.lem
diff options
context:
space:
mode:
authorThomas Bauereiss2018-01-31 15:38:21 +0000
committerThomas Bauereiss2018-01-31 15:38:21 +0000
commit64646f5a7105b4530d2f3d04ebc7d570d18c26f4 (patch)
tree8bf9893210b6ddefa3a3245439d648cddd6eeea4 /src/gen_lib/sail_operators.lem
parent15c9ff0ae2fd00e716d41d5f874679465e918a14 (diff)
Export arithmetic shift right from Lem library
Diffstat (limited to 'src/gen_lib/sail_operators.lem')
-rw-r--r--src/gen_lib/sail_operators.lem1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/gen_lib/sail_operators.lem b/src/gen_lib/sail_operators.lem
index b84e659d..ada91bd0 100644
--- a/src/gen_lib/sail_operators.lem
+++ b/src/gen_lib/sail_operators.lem
@@ -170,6 +170,7 @@ let shift_op_bv op v n =
let shiftl_bv = shift_op_bv LL_shift (*"<<"*)
let shiftr_bv = shift_op_bv RR_shift (*">>"*)
+let arith_shiftr_bv = shift_op_bv RR_shift_arith
let rotl_bv = shift_op_bv LL_rot (*"<<<"*)
let rotr_bv = shift_op_bv LL_rot (*">>>"*)