diff options
Diffstat (limited to 'src/test/power.sail')
| -rw-r--r-- | src/test/power.sail | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/test/power.sail b/src/test/power.sail index dc07f97e..2b73e361 100644 --- a/src/test/power.sail +++ b/src/test/power.sail @@ -8,6 +8,8 @@ val extern bit -> bit effect pure (deinfix ~ ) = "bitwise-not" val extern ( bit * bit ) -> bit effect pure (deinfix ^ ) = "bitwise-xor" val extern ( bit * bit ) -> bit effect pure (deinfix & ) = "bitwise-and" +val extern bit -> bool effect pure is_one = "is_one" + (* XXX sign extension *) function forall Type 'a . 'a exts ( x ) = x |