diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-18 15:31:03 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-18 15:31:03 +0200 |
| commit | 43487d3baf695875482454ade1bdbc1403bfaaf6 (patch) | |
| tree | 3718a44913fc1544d7ddfbe5fdb5d909e162ca9b /abstract/nonrelational.ml | |
| parent | 0caa1ebe947646459295c6a66da6bf19f399c21e (diff) | |
| download | scade-analyzer-43487d3baf695875482454ade1bdbc1403bfaaf6.tar.gz scade-analyzer-43487d3baf695875482454ade1bdbc1403bfaaf6.zip | |
Add gilbreath suite ; booleans are not represented in a good way.
Diffstat (limited to 'abstract/nonrelational.ml')
| -rw-r--r-- | abstract/nonrelational.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/abstract/nonrelational.ml b/abstract/nonrelational.ml index 3cdcc31..855f970 100644 --- a/abstract/nonrelational.ml +++ b/abstract/nonrelational.ml @@ -215,14 +215,15 @@ module D (V : VALUE_DOMAIN) : ENVIRONMENT_DOMAIN = struct List.iteri (fun j (v, ids) -> if j > 0 then Format.fprintf fmt "@ "; + Format.fprintf fmt "@[<hov 4>"; List.iteri (fun i id -> - if i > 0 then Format.fprintf fmt ", "; + if i > 0 then Format.fprintf fmt ",@ "; Format.fprintf fmt "%a" Formula_printer.print_id id) ids; match V.as_const v with - | Some i -> Format.fprintf fmt " = %d" i - | _ -> Format.fprintf fmt " ∊ %s" (V.to_string v)) + | Some i -> Format.fprintf fmt " = %d@]" i + | _ -> Format.fprintf fmt " ∊ %s@]" (V.to_string v)) sbl; Format.fprintf fmt " }@]" |