diff options
| author | Alasdair Armstrong | 2018-01-18 18:16:45 +0000 |
|---|---|---|
| committer | Alasdair Armstrong | 2018-01-18 18:31:26 +0000 |
| commit | 0fa42d315e20f819af93c2a822ab1bc032dc4535 (patch) | |
| tree | 7ef4ea3444ba5938457e7c852f9ad9957055fe41 /lib/ocaml_rts/linksem/src_lem_library/bit.ml | |
| parent | 24dc13511053ab79ccb66ae24e3b8ffb9cad0690 (diff) | |
Modified ocaml backend to use ocamlfind for linksem and lem
Fixed test cases for ocaml backend and interpreter
Diffstat (limited to 'lib/ocaml_rts/linksem/src_lem_library/bit.ml')
| -rw-r--r-- | lib/ocaml_rts/linksem/src_lem_library/bit.ml | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/lib/ocaml_rts/linksem/src_lem_library/bit.ml b/lib/ocaml_rts/linksem/src_lem_library/bit.ml deleted file mode 100644 index bd972008..00000000 --- a/lib/ocaml_rts/linksem/src_lem_library/bit.ml +++ /dev/null @@ -1,19 +0,0 @@ -type bit = Zero | One - -let to_bool b = match b with | Zero -> false | _ -> true -let bn b = match b with | Zero -> One | One -> Zero -let bor b1 b2 = match (b1,b2) with - | Zero,Zero -> Zero - | _ -> One -let xor b1 b2 = match (b1,b2) with - | Zero,Zero -> Zero - | Zero,One | One,Zero -> One - | _ -> Zero -let band b1 b2 = match (b1,b2) with - | One,One -> One - | _ -> Zero - -let add b1 b2 = match (b1,b2) with - | Zero,Zero -> Zero, false - | Zero,One | One,Zero -> One, false - | One,One -> Zero, true |