diff options
| author | Alasdair Armstrong | 2019-05-17 18:38:35 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2019-05-17 18:38:35 +0100 |
| commit | a1ef7946b96d95b3192f8db496f09d4bb23b775a (patch) | |
| tree | fffb42d83bebfae64ae1be1149e8c5e660753ed1 /test/c/bv_literal.sail | |
| parent | f0b547154b3d2ce9e4bac74b0c56f20d6db76cd2 (diff) | |
Experiment with making vector and bitvector distinct types
Only change that should be needed for 99.9% of uses is to change
vector('n, 'ord, bit) to bitvector('n, 'ord), and adding
$ifndef FEATURE_BITVECTOR_TYPE
type bitvector('n, dec) = vector('n, dec, bit)
$endif
for to support any Sail before this
Currently I have all C, Typechecking, and SMT tests passing, as well
as the RISC-V spec building OCaml and C completely unmodified.
Diffstat (limited to 'test/c/bv_literal.sail')
| -rw-r--r-- | test/c/bv_literal.sail | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/c/bv_literal.sail b/test/c/bv_literal.sail index 1955b5dd..73f1133c 100644 --- a/test/c/bv_literal.sail +++ b/test/c/bv_literal.sail @@ -1,12 +1,12 @@ default Order dec -val "print_bits" : forall 'n. (string, vector('n, dec, bit)) -> unit +val "print_bits" : forall 'n. (string, bitvector('n, dec)) -> unit val main : unit -> unit function main () = { let x : bit = bitone; - let y : vector(4, dec, bit) = [x, bitone, bitzero, x]; + let y : bitvector(4, dec) = [x, bitone, bitzero, x]; print_bits("y = ", y); }
\ No newline at end of file |