diff options
| author | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-17 17:38:29 +0200 |
|---|---|---|
| committer | Alex Auvolat <alex.auvolat@ansys.com> | 2014-06-17 17:38:29 +0200 |
| commit | 2b62d844cc81b60bcbdfc145097139995ea6f3a0 (patch) | |
| tree | 8c34ecf12daf28569ac8a5364eb0438b9262308c /frontend | |
| parent | ce4f339ced19e2ff7d79c2c8ec5b3ee478d5d365 (diff) | |
| download | scade-analyzer-2b62d844cc81b60bcbdfc145097139995ea6f3a0.tar.gz scade-analyzer-2b62d844cc81b60bcbdfc145097139995ea6f3a0.zip | |
Some abstract interpretation does something now.
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/ast.ml | 2 | ||||
| -rw-r--r-- | frontend/ast_printer.ml | 2 | ||||
| -rw-r--r-- | frontend/parser.mly | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/frontend/ast.ml b/frontend/ast.ml index fbf099c..4f8c860 100644 --- a/frontend/ast.ml +++ b/frontend/ast.ml @@ -58,7 +58,7 @@ type expr = | AST_if of (expr ext) * (expr ext) * (expr ext) | AST_instance of (id ext) * (expr ext list) * id -type var_def = bool * (id ext) * typ +type var_def = bool * id * typ type automaton = id * state ext list * id list and state = { diff --git a/frontend/ast_printer.ml b/frontend/ast_printer.ml index 641e4fd..c14d0d1 100644 --- a/frontend/ast_printer.ml +++ b/frontend/ast_printer.ml @@ -171,7 +171,7 @@ let rec print_vars ind fmt = function List.iter (fun d -> Format.fprintf fmt " %a;" print_var_decl d) v; Format.fprintf fmt "@\n"; -and print_var_decl fmt (pr, (i, _), ty) = +and print_var_decl fmt (pr, i, ty) = Format.fprintf fmt "%s%s: %s" (if pr then "probe " else "") i diff --git a/frontend/parser.mly b/frontend/parser.mly index 0d257dd..4301a05 100644 --- a/frontend/parser.mly +++ b/frontend/parser.mly @@ -166,7 +166,7 @@ body: { l } var: -| p=boption(PROBE) i=ext(IDENT) { (p, i) } +| p=boption(PROBE) i=IDENT { (p, i) } vari: | vn=separated_list(COMMA, var) COLON t=typ |