diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-07 19:04:38 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-07 19:04:38 +0200 |
| commit | d4ab85a1a6503cdbcb98c183c3357926d78da8a7 (patch) | |
| tree | b28ac764dd21ca7225ee46c6f4a4686648511fa3 /abstract/constant_domain.ml | |
| parent | 9ccef2c0850b73bf3d92f26bfa0aeacf933e1d17 (diff) | |
| download | SemVerif-Projet-d4ab85a1a6503cdbcb98c183c3357926d78da8a7.tar.gz SemVerif-Projet-d4ab85a1a6503cdbcb98c183c3357926d78da8a7.zip | |
implement assert, print
Diffstat (limited to 'abstract/constant_domain.ml')
| -rw-r--r-- | abstract/constant_domain.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/abstract/constant_domain.ml b/abstract/constant_domain.ml index 4bd5cf2..d142228 100644 --- a/abstract/constant_domain.ml +++ b/abstract/constant_domain.ml @@ -50,4 +50,9 @@ module Constants : VALUE_DOMAIN = struct then Int a, Int b else Bot, Bot | x, y -> x, y + + let to_string = function + | Bot -> "bot" + | Top -> "top" + | Int i -> "{" ^ (Z.to_string i) ^ "}" end |