diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-25 16:55:43 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-25 16:55:43 +0200 |
| commit | e16f965b88efa1ba7872ced9fed627361c5c2c9e (patch) | |
| tree | 2beafe42b393b2d02ee94cb393ff736b4db33935 /abstract/abs_interp.ml | |
| parent | 255ec4a98d329d021dbc86ca81a59d562efaa8d1 (diff) | |
| download | scade-analyzer-e16f965b88efa1ba7872ced9fed627361c5c2c9e.tar.gz scade-analyzer-e16f965b88efa1ba7872ced9fed627361c5c2c9e.zip | |
Begin implementation of EDD ; SCA implemented.
Diffstat (limited to 'abstract/abs_interp.ml')
| -rw-r--r-- | abstract/abs_interp.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/abstract/abs_interp.ml b/abstract/abs_interp.ml index f526095..bed2f2c 100644 --- a/abstract/abs_interp.ml +++ b/abstract/abs_interp.ml @@ -233,7 +233,7 @@ end = struct *) let init_state opt rp = Format.printf "Vars: @[<hov>%a@]@.@." - (Ast_printer.print_list Ast_printer.print_typed_var ", ") + (print_list Ast_printer.print_typed_var ", ") rp.all_vars; let enum_vars = List.fold_left @@ -390,7 +390,7 @@ end = struct incr n_ch_iter; Format.printf "Chaotic iteration %d: @[<hov>[%a]@]@." !n_ch_iter - (Ast_printer.print_list Formula_printer.print_id ", ") case; + (print_list Formula_printer.print_id ", ") case; let start = try Hashtbl.find st.env case with Not_found -> assert false in let start_dd = dd_singleton st.d_vars start in @@ -465,11 +465,11 @@ end = struct Format.printf "%a" ND.print_itv (ND.project num id) | TEnum _ -> Format.printf "@[<hov>{ %a }@]" - (Ast_printer.print_list Formula_printer.print_id ", ") + (print_list Formula_printer.print_id ", ") (ED.project enum id) end; Format.printf " when @[<hov>[%a]@]@ " - (Ast_printer.print_list Formula_printer.print_id ", ") case) + (print_list Formula_printer.print_id ", ") case) final.data; Format.printf "@]@ " end) |