diff options
| author | Thomas Bauereiss | 2017-09-29 16:33:55 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-09-29 16:33:55 +0100 |
| commit | d24027629670f9ecd67cf107a988df242c42ed19 (patch) | |
| tree | 367a79b1e6fec48a8e1dfb81770c0c7d3360d0de /src/parse_ast.ml | |
| parent | 7e1293604ff02c072568e03830d25adfea063087 (diff) | |
| parent | 381a3967ebd9269082b452669f507787decf28b0 (diff) | |
Merge branch 'experiments' of bitbucket.org:Peter_Sewell/sail into experiments
Diffstat (limited to 'src/parse_ast.ml')
| -rw-r--r-- | src/parse_ast.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/parse_ast.ml b/src/parse_ast.ml index b259611d..6424d682 100644 --- a/src/parse_ast.ml +++ b/src/parse_ast.ml @@ -253,6 +253,7 @@ and fpat_aux = (* Field pattern *) and fpat = FP_aux of fpat_aux * l +type loop = While | Until type exp_aux = (* Expression *) @@ -265,6 +266,7 @@ exp_aux = (* Expression *) | E_app_infix of exp * id * exp (* infix function application *) | E_tuple of (exp) list (* tuple *) | E_if of exp * exp * exp (* conditional *) + | E_loop of loop * exp * exp | E_for of id * exp * exp * exp * atyp * exp (* loop *) | E_vector of (exp) list (* vector (indexed from 0) *) | E_vector_indexed of (exp) list * opt_default (* vector (indexed consecutively) *) |