DBA hunks, aka dhunk
A DBA block represents a set of DBA instructions with explicit links to the next one. The first instruction of the block always has id 0. Typically, DBA a block is the translation of one binary/assembly instruction.
module Node : sig ... endval empty : tThe one and only empty DBA hunk. Get it here!
val stop : tA simple dhunk of one instruction stopping with an OK Dba.state
val is_empty : t -> boolval init : int -> (int -> Dba.Instr.t) -> tval singleton : Dba.Instr.t -> tval length : t -> intval inst : t -> int -> Dba.Instr.t optionval iter : f:(Dba.Instr.t -> unit) -> t -> unitval iteri : f:(int -> Dba.Instr.t -> unit) -> t -> unitval of_list : Dba.Instr.t list -> tof_list l assumes the list is sorted in increasing order inside the block
val of_labelled_list : (int * Dba.Instr.t) list -> tof_list l assumes the list is sorted in increasing order inside the block, i.e. the labels are contiguous starting from 0.
val mapi : f:(int -> Dba.Instr.t -> Dba.Instr.t) -> t -> tval flatten : t -> (int * Dba.Instr.t) listval to_list : t -> Dba.Instr.t listval fold : ('a -> Dba.Instr.t -> 'a) -> 'a -> t -> 'aval for_all : (Dba.Instr.t -> bool) -> t -> boolval export_and_view : ?cmd:string -> t -> unitview dh Visualize dot-rendered DBA hunk dh using cmd.
Default value for cmd is firefox.
include Sigs.PRINTABLE with type t := tval pp : Stdlib.Format.formatter -> t -> unitmodule Check : sig ... endmodule Simplify : sig ... endval to_stmts : t -> Virtual_address.t -> Dba_types.Statement.t listval outer_jumps : t -> Virtual_address.Set.touter_jumps b computes the set of jumps to external addresses in hunk b. Due to dynamic jumps, this represents a syntactic under-approximation of the possible jumps from this block.
val callees : t -> Virtual_address.Set.tcallees b computes the set of addresses this block may call
val is_return : t -> boolis_return d check if dhunk d encodes a return
val has_indirect_jump : t -> boolhas_indirect_jump d returns true if the hunk contains an indirect jump instruction
type conditional = {condition : Dba.Expr.t;consequent : Virtual_address.t;alternative : Virtual_address.t;}val conditional : t -> conditional option