Skip to content

GitLab

Commit 9b1dcc92 authored by François Bobot's avatar François Bobot
Browse files

[Smtv2] fit lines in 80 columns

parent 21b1f3dd
Hide whitespace changes
Inline Side-by-side
src/printer/smtv2.ml
View file @ 9b1dcc92
...@@ -57,7 +57,8 @@ let ident_printer = ...@@ -57,7 +57,8 @@ let ident_printer =
"concat"; "bvnot"; "bvand"; "bvor"; "bvneg"; "bvadd"; "bvmul"; "bvudiv"; "concat"; "bvnot"; "bvand"; "bvor"; "bvneg"; "bvadd"; "bvmul"; "bvudiv";
"bvurem"; "bvshl"; "bvlshr"; "bvult"; "bvnand"; "bvnor"; "bvxor"; "bvurem"; "bvshl"; "bvlshr"; "bvult"; "bvnand"; "bvnor"; "bvxor";
"bvcomp"; "bvsub"; "bvsdiv"; "bvsrem"; "bvsmod"; "bvashr"; "bvule"; "bvcomp"; "bvsub"; "bvsdiv"; "bvsrem"; "bvsmod"; "bvashr"; "bvule";
"bvugt"; "bvuge"; "bvslt"; "bvsle"; "bvsgt"; "bvsge"; "rotate_left"; "rotate_right"; "bvugt"; "bvuge"; "bvslt"; "bvsle"; "bvsgt"; "bvsge"; "rotate_left";
"rotate_right";
"cos"; "sin"; "tan"; "atan"; "pi"; "cos"; "sin"; "tan"; "atan"; "pi";
...@@ -129,12 +130,10 @@ let print_var_list info fmt vsl = ...@@ -129,12 +130,10 @@ let print_var_list info fmt vsl =
let model_label = Ident.create_label "model" let model_label = Ident.create_label "model"
let collect_model_ls info ls = let collect_model_ls info ls =
if ls.ls_args = [] && if ls.ls_args = [] && Slab.mem model_label ls.ls_name.id_label then
Slab.mem model_label ls.ls_name.id_label then let t = t_app ls [] ls.ls_value in
begin info.info_model <-
let t = t_app ls [] ls.ls_value in (t_label ?loc:ls.ls_name.id_loc ls.ls_name.id_label t) :: info.info_model
info.info_model <- (t_label ?loc:ls.ls_name.id_loc ls.ls_name.id_label t) :: info.info_model
end
(** expr *) (** expr *)
let rec print_term info fmt t = let rec print_term info fmt t =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment