diff options
| author | Alasdair Armstrong | 2017-07-26 17:54:28 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-07-26 17:54:28 +0100 |
| commit | c1a431aa50a65704a349174ecf7b9017ff87c570 (patch) | |
| tree | 42a7e04a432c24d68d69d0bd7367adfccf123633 /lib/prelude.sail | |
| parent | ce2b3391539fba834105923488f09475e3a1e25a (diff) | |
Add right shift to lib/prelude.sail, and add case for E_exit in Ast_util.string_of_exp
Diffstat (limited to 'lib/prelude.sail')
| -rw-r--r-- | lib/prelude.sail | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/prelude.sail b/lib/prelude.sail index bb19aa8d..bac9532c 100644 --- a/lib/prelude.sail +++ b/lib/prelude.sail @@ -181,6 +181,13 @@ overload (deinfix <<) [ shiftl ] +val forall Num 'n, Num 'o, Order 'ord. + (vector<'o, 'n, 'ord, bit>, int) -> vector<'o, 'n, 'ord, bit> effect pure shiftr + +overload (deinfix >>) [ + shiftr +] + (* Boolean operators *) val bool -> bool effect pure bool_not val (bool, bool) -> bool effect pure bool_or |