diff options
| author | Alasdair Armstrong | 2018-07-30 19:16:34 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-08-01 16:42:33 +0100 |
| commit | 1479ae359fd3afebf9c3dfb6e58a77254e8140ea (patch) | |
| tree | ffcfd96409467a5c41009f68afe1f65a2c7a3d49 /src/test/test5.sail | |
| parent | 0b70a9d7464d6c30534d2f511cb8c9879c76b1e5 (diff) | |
Remove old test directory in src/test
Diffstat (limited to 'src/test/test5.sail')
| -rw-r--r-- | src/test/test5.sail | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/test/test5.sail b/src/test/test5.sail deleted file mode 100644 index bcc108c4..00000000 --- a/src/test/test5.sail +++ /dev/null @@ -1,21 +0,0 @@ -register (bit) SAT - -val forall Nat 'n, Nat 'm, 'n <= 0, 0 <= 'm. - (nat, [|'n|], [|'m|]) -> [|'n:'m|] effect { wreg } Clamp - -function - forall Nat 'n, Nat 'm, 'n <= 0, 0 <= 'm. ([|'n:'m|]) - Clamp((nat) x, ([|'n|]) y, ([|'m|]) z) = { - ([|'n:'m|]) result := 0; - if (x<y) then { - result := y; - SAT := bitone; - } else if (x > z) then { - result := z; - SAT := bitone; - } else { - result := x; - }; - result; - } - |