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 /frontend | |
| parent | b98652f71d6553136ff676cad7c1ee80f80f3405 (diff) | |
| download | scade-analyzer-255ec4a98d329d021dbc86ca81a59d562efaa8d1.tar.gz scade-analyzer-255ec4a98d329d021dbc86ca81a59d562efaa8d1.zip | |
Differentiate pre witin different scopes.
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/typing.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/frontend/typing.ml b/frontend/typing.ml index aca8d15..0f19b93 100644 --- a/frontend/typing.ml +++ b/frontend/typing.ml @@ -136,6 +136,7 @@ let rec extract_all_vars rp (node, prefix, eqs) n_vars = List.flatten (List.map (fun (id, expr) -> + let id = node^"/"^id in let vd = List.mapi (fun i t -> false, id^"."^(string_of_int i), t) |