Module InferIR.AccessPath

type base = Var.t * Typ.t
val compare_base : base -> base -> int
type access =
| ArrayAccess of Typ.t * t list

array element type with list of access paths in index

| FieldAccess of Typ.Fieldname.t

field name

and t = base * access list

root var, and a list of accesses. closest to the root var is first that is, x.f.g is representedas (x, f; g)

val compare_access : access -> access -> int
val compare : t -> t -> int
val compare_access : access -> access -> int
val compare : t -> t -> int
val truncate : t -> t * access option

remove and return the last access of the access path if the access list is non-empty. returns the original access path * None if the access list is empty

val get_last_access : t -> access option

get the last access in the list. returns None if the list is empty

val get_field_and_annotation : t -> Tenv.t -> (Typ.Fieldname.t * Annot.Item.t) option

get the field name and the annotation of the last access in the list of accesses if the list is non-empty and the last access is a field access

val get_typ : t -> Tenv.t -> Typ.t option

get the typ of the last access in the list of accesses if the list is non-empty, or the base if the list is empty. that is, for x.f.g, return typ(g), and for x, return typ(x)

val base_of_pvar : Pvar.t -> Typ.t -> base

create a base from a pvar

val of_pvar : Pvar.t -> Typ.t -> t

create an access path from a pvar

val of_id : Ident.t -> Typ.t -> t

create an access path from an ident

val of_exp : include_array_indexes:bool -> Exp.t -> Typ.t -> f_resolve_id:(Var.t -> t option) -> t list

extract the access paths that occur in exp, resolving identifiers using f_resolve_id. don't include index expressions in array accesses if include_array_indexes is false

val of_lhs_exp : include_array_indexes:bool -> Exp.t -> Typ.t -> f_resolve_id:(Var.t -> t option) -> t option

convert lhs_exp to an access path, resolving identifiers using f_resolve_id

val append : t -> access list -> t

append new accesses to an existing access path; e.g., `append_access x.f g, h` produces `x.f.g.h`

val is_prefix : t -> t -> bool

return true if ap1 is a prefix of ap2. returns true for equal access paths

val replace_prefix : prefix:t -> t -> t -> t option
val inner_class_normalize : t -> t

transform an access path that starts on "this" of an inner class but which breaks out to access outer class fields to the outermost one. Cases handled (recursively):

  • (this:InnerClass* ).(this$n:OuterClassAccessor).f. ... -> (this:OuterClass* ).f . ...
  • this$n.(this$m:OuterClassAccessor).f ... -> (this$m:OuterClass* ).f . ... (happens in ctrs only)
  • this$n.f ... -> this.f . ... (happens in ctrs only)
val equal : t -> t -> bool
val equal_base : base -> base -> bool
val pp : Stdlib.Format.formatter -> t -> unit
val pp_base : Stdlib.Format.formatter -> base -> unit
val pp_access : Stdlib.Format.formatter -> access -> unit
val pp_access_list : Stdlib.Format.formatter -> access list -> unit
module Abs : sig ... end
module BaseMap : InferStdlib.PrettyPrintable.PPMap with type PPMap.key = base