summaryrefslogtreecommitdiff
path: root/doc/examples/regref.sail
blob: 268af2955955fe4b431317b5e07ad2d97de00e59 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
default Order dec
$include <prelude.sail>

register X0 : bits(8)
register X1 : bits(8)
register X2 : bits(8)

let X : vector(3, dec, register(bits(8))) = [ref X2, ref X1, ref X0]

function main() : unit -> unit = {
  X0 = 0xFF;
  assert(X0 == 0xFF);
  (*X[0]) = 0x11;
  assert(X0 == 0x11);
  (*ref X0) = 0x00;
  assert(X0 == 0x00)
}