diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-31 11:11:56 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-31 11:11:56 +0200 |
| commit | 07c9b3e72062693c8dc3fb6b5455e9e0a1e6f890 (patch) | |
| tree | 6da3db924d0839abf0e11153d79f080d7d627d89 /abstract/enum_domain_edd.ml | |
| parent | 1285d1ebe5025066feda9c9c182aad1daf542f1c (diff) | |
| parent | ffa7da8b4343f2ce8fee6c0a4409f4de8f4e5024 (diff) | |
| download | scade-analyzer-07c9b3e72062693c8dc3fb6b5455e9e0a1e6f890.tar.gz scade-analyzer-07c9b3e72062693c8dc3fb6b5455e9e0a1e6f890.zip | |
Merge branch 'refactor'
Diffstat (limited to 'abstract/enum_domain_edd.ml')
| -rw-r--r-- | abstract/enum_domain_edd.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/abstract/enum_domain_edd.ml b/abstract/enum_domain_edd.ml index 3e03d59..ed13798 100644 --- a/abstract/enum_domain_edd.ml +++ b/abstract/enum_domain_edd.ml @@ -150,8 +150,10 @@ module EDD : ENUM_ENVIRONMENT_DOMAIN = struct (* is_bot : t -> bool + is_top : t -> bool *) let is_bot x = (x.root = DBot) + let is_top x = (x.root = DTop) (* vars : t -> (id * item list) list |