diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-04-30 17:19:08 +0200 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-04-30 17:19:08 +0200 |
| commit | bcde99fbe99174a094f38fdda70ad69d65a423f4 (patch) | |
| tree | 21e16494aba19c4a63d55eba877abfe7fe5d8e80 /abstract | |
| download | SemVerif-Projet-bcde99fbe99174a094f38fdda70ad69d65a423f4.tar.gz SemVerif-Projet-bcde99fbe99174a094f38fdda70ad69d65a423f4.zip | |
Fist commit (WIP)
Diffstat (limited to 'abstract')
| -rw-r--r-- | abstract/constant_domain.ml | 18 | ||||
| -rw-r--r-- | abstract/domain.ml | 7 |
2 files changed, 25 insertions, 0 deletions
diff --git a/abstract/constant_domain.ml b/abstract/constant_domain.ml new file mode 100644 index 0000000..8444779 --- /dev/null +++ b/abstract/constant_domain.ml @@ -0,0 +1,18 @@ + + +module Make : Domain.s = + struct + + + type tv = + | Bot + | BTrue + | BFalse + | BTop + | I of Z.t + | ITop + | Top + + type ts = tv VarMap.t + + end diff --git a/abstract/domain.ml b/abstract/domain.ml new file mode 100644 index 0000000..d022e34 --- /dev/null +++ b/abstract/domain.ml @@ -0,0 +1,7 @@ + +module type S = + sig + type tv + type ts + + end |