diff options
| author | Peter Sewell | 2018-07-27 18:57:02 +0100 |
|---|---|---|
| committer | Peter Sewell | 2018-07-27 18:57:02 +0100 |
| commit | 3755e6701a9286677fd2f4ca40a16305b360f9d9 (patch) | |
| tree | 67766e537db5bb8dbfc6b59432b2786a88b76be3 /src/ast_util.ml | |
| parent | 2a35c6b9e1cfac8ce34ef6fa7c264cfea4139002 (diff) | |
| parent | e4af7c3090c93a129e99dd75f2a20d5a9d2f6920 (diff) | |
Merge branch 'sail2' of github.com:rems-project/sail into sail2
Diffstat (limited to 'src/ast_util.ml')
| -rw-r--r-- | src/ast_util.ml | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/ast_util.ml b/src/ast_util.ml index 781069eb..3c6cbeb2 100644 --- a/src/ast_util.ml +++ b/src/ast_util.ml @@ -633,11 +633,6 @@ and string_of_n_constraint = function | NC_aux (NC_true, _) -> "true" | NC_aux (NC_false, _) -> "false" -let string_of_annot = function - | Some (_, typ, eff) -> - "Some (_, " ^ string_of_typ typ ^ ", " ^ string_of_effect eff ^ ")" - | None -> "None" - let string_of_quant_item_aux = function | QI_id (KOpt_aux (KOpt_none kid, _)) -> string_of_kid kid | QI_id (KOpt_aux (KOpt_kind (k, kid), _)) -> "(" ^ string_of_kid kid ^ " :: " ^ string_of_kind k ^ ")" |