diff options
| author | Gabriel Kerneis | 2014-02-07 13:21:52 +0000 |
|---|---|---|
| committer | Gabriel Kerneis | 2014-02-07 13:21:52 +0000 |
| commit | dcbc80a3419a828da8cdb6250ecb52f52a72a28b (patch) | |
| tree | bc2b5d4ff036f77c5f53fa34ff37b2f607436e11 /src/test | |
| parent | 11354eafbc9d636455c7265f6f9f3e24ef8eb056 (diff) | |
Implement is_one
Diffstat (limited to 'src/test')
| -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 |