diff options
Diffstat (limited to 'src/ast_util.ml')
| -rw-r--r-- | src/ast_util.ml | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/ast_util.ml b/src/ast_util.ml index e502f86f..206515c5 100644 --- a/src/ast_util.ml +++ b/src/ast_util.ml @@ -692,6 +692,14 @@ let id_of_fundef (FD_aux (FD_function (_, _, _, funcls), (l, _))) = | Some id -> id | None -> raise (Reporting_basic.err_typ l "funcl list is empty") +let id_of_type_def_aux = function + | TD_abbrev (id, _, _) + | TD_record (id, _, _, _, _) + | TD_variant (id, _, _, _, _) + | TD_enum (id, _, _, _) + | TD_bitfield (id, _, _) -> id +let id_of_type_def (TD_aux (td_aux, _)) = id_of_type_def_aux td_aux + module BE = struct type t = base_effect let compare be1 be2 = String.compare (string_of_base_effect be1) (string_of_base_effect be2) |