module NormAtLabels: sig
.. end
push the Tat down to the 'data' operations.
This can be useful in cases like \at (x + \at(y, Ly), Lx) because
it gives \at(x, Lx) + \at(y, Ly) so there is no more \at imbrications.
Also try to "normalize" label :
- remove Here because its meaning change when propagating,
- remove Old because its meaning depend on where it comes from.
type
label_mapping = Cil_types.logic_label -> Cil_types.logic_label
class norm_at : (Cil_types.logic_label -> Cil_types.logic_label) ->
object
.. end
push the Tat down to the 'data' operations.
exception LabelError of Cil_types.logic_label
val labels_empty : Cil_types.logic_label -> 'a
val labels_fct_pre : Cil_types.logic_label -> Cil_types.logic_label
val labels_fct_post : Cil_types.logic_label -> Cil_types.logic_label
val labels_fct_assigns : Cil_types.logic_label -> Cil_types.logic_label
val labels_stmt_pre : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_stmt_post : Cil_types.stmt ->
Cil_types.logic_label option ->
Cil_types.logic_label -> Cil_types.logic_label
val labels_stmt_assigns : Cil_types.stmt ->
Cil_types.logic_label option ->
Cil_types.logic_label -> Cil_types.logic_label
val labels_assert_before : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_assert_after : Cil_types.stmt ->
Cil_types.logic_label option ->
Cil_types.logic_label -> Cil_types.logic_label
val labels_loop_inv : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_loop_assigns : Cil_types.stmt -> Cil_types.logic_label -> Cil_types.logic_label
val labels_predicate : ('a * 'a) list -> 'a -> 'a
val labels_axiom : Cil_types.logic_label -> Cil_types.logic_label
val preproc_annot : (Cil_types.logic_label -> Cil_types.logic_label) ->
Cil_types.predicate Cil_types.named -> Cil_types.predicate Cil_types.named
Raises LabelError
if there is a label in p
that is incompatible
with the labels
translation
val preproc_assigns : (Cil_types.logic_label -> Cil_types.logic_label) ->
Cil_types.identified_term Cil_types.from list ->
Cil_types.identified_term Cil_types.from list
Raises LabelError
if there is a label in p
that is incompatible
with the labels
translation
val preproc_label : ('a -> 'b) -> 'a -> 'b
val catch_label_error : exn -> string -> string -> unit