Module HilExp.Access
type ('fieldname, 'array_index) t_
=
|
FieldAccess of 'fieldname
|
ArrayAccess of IR.Typ.t * 'array_index
|
TakeAddress
|
Dereference
val compare_t_ : ('fieldname -> 'fieldname -> int) -> ('array_index -> 'array_index -> int) -> ('fieldname, 'array_index) t_ -> ('fieldname, 'array_index) t_ -> int
val equal_t_ : ('fieldname -> 'fieldname -> bool) -> ('array_index -> 'array_index -> bool) -> ('fieldname, 'array_index) t_ -> ('fieldname, 'array_index) t_ -> bool
val yojson_of_t_ : ('fieldname -> Ppx_yojson_conv_lib.Yojson.Safe.t) -> ('array_index -> Ppx_yojson_conv_lib.Yojson.Safe.t) -> ('fieldname, 'array_index) t_ -> Ppx_yojson_conv_lib.Yojson.Safe.t
type 'array_index t
= (IR.Fieldname.t, 'array_index) t_