diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-25 09:51:51 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-25 09:51:51 +0200 |
| commit | 255ec4a98d329d021dbc86ca81a59d562efaa8d1 (patch) | |
| tree | a20f598bea8a57c0a29c537dff7ee1d9796f2998 /abstract/transform.ml | |
| parent | b98652f71d6553136ff676cad7c1ee80f80f3405 (diff) | |
| download | scade-analyzer-255ec4a98d329d021dbc86ca81a59d562efaa8d1.tar.gz scade-analyzer-255ec4a98d329d021dbc86ca81a59d562efaa8d1.zip | |
Differentiate pre witin different scopes.
Diffstat (limited to 'abstract/transform.ml')
| -rw-r--r-- | abstract/transform.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/abstract/transform.ml b/abstract/transform.ml index 82b6731..b9c173d 100644 --- a/abstract/transform.ml +++ b/abstract/transform.ml @@ -61,6 +61,7 @@ let rec f_of_neexpr td (node, prefix) where expr = | _ -> le invalid_arity "binary operator") a (* temporal *) | AST_pre(expr, id) -> + let id = node^"/"^id in let typ = type_expr td.rp node expr in where (List.mapi @@ -183,6 +184,7 @@ let rec f_of_scope active td (node, prefix, eqs) assume_guarantees = let eq_i = f_and_list (List.map instance_eq (extract_instances td.rp.p e)) in let pre_expr (id, expr) = + let id = node^"/"^id in if active then f_of_neexpr td (node, prefix) (fun elist -> list_fold_op f_and |