diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-30 10:37:28 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-07-30 10:37:28 +0200 |
| commit | 8bba764aaade1839b62be7c4f24292f8dc85ada8 (patch) | |
| tree | 1aa5a4b52548de0537f7c621e488d52b63f6af1a /abstract/abs_interp_dynpart.ml | |
| parent | 818c737eb01abe1a47894c1fbfc35c3a3af804ef (diff) | |
| download | scade-analyzer-8bba764aaade1839b62be7c4f24292f8dc85ada8.tar.gz scade-analyzer-8bba764aaade1839b62be7c4f24292f8dc85ada8.zip | |
Implement selection of disjunction variables for EDDs.
Next (?) : leaves can store information on evars.
Diffstat (limited to 'abstract/abs_interp_dynpart.ml')
| -rw-r--r-- | abstract/abs_interp_dynpart.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/abstract/abs_interp_dynpart.ml b/abstract/abs_interp_dynpart.ml index 2ff950a..bbd8d19 100644 --- a/abstract/abs_interp_dynpart.ml +++ b/abstract/abs_interp_dynpart.ml @@ -221,7 +221,7 @@ end = struct guarantees; Format.printf "@."; - let ve = mk_varenv rp f (conslist_of_f f) in + let ve = mk_varenv rp opt.disjunct f (conslist_of_f f) in let env = { rp; opt; ve; f; guarantees; |