diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-30 15:45:28 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-30 15:45:28 +0200 |
| commit | 93d924bb1017dc26a9735801e1b7f8b7a3f4ef2c (patch) | |
| tree | 4ed81458db78bd851a6643230c953dceb3614de8 /abstract/enum_domain_edd.ml | |
| parent | 2a415b74b05644d9fa6023b66c6563484c787b8d (diff) | |
| download | scade-analyzer-93d924bb1017dc26a9735801e1b7f8b7a3f4ef2c.tar.gz scade-analyzer-93d924bb1017dc26a9735801e1b7f8b7a3f4ef2c.zip | |
Refactor some stuff (this code sould be re-read.)
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 |