diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-08 13:06:00 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-08 13:06:00 +0200 |
| commit | d3a8a8870050810a7bc3fb5e004059197ec364f8 (patch) | |
| tree | 8368172ddd21e31aea993c80a9740e8b1a2d9706 /common | |
| parent | cce39d8408cfa33ae4cc7c586e35546a5b731dbf (diff) | |
| download | compcert-kvx-d3a8a8870050810a7bc3fb5e004059197ec364f8.tar.gz compcert-kvx-d3a8a8870050810a7bc3fb5e004059197ec364f8.zip | |
print hashes
Diffstat (limited to 'common')
| -rw-r--r-- | common/AST.v | 5 | ||||
| -rw-r--r-- | common/PrintAST.ml | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/common/AST.v b/common/AST.v index 846678c2..268e13d5 100644 --- a/common/AST.v +++ b/common/AST.v @@ -465,7 +465,8 @@ Qed. (** * External functions *) (* Identifiers for profiling information *) -Definition profiling_id := Z.t. +Parameter profiling_id : Type. +Axiom profiling_id_eq : forall (x y : profiling_id), {x=y} + {x<>y}. Definition profiling_kind := Z.t. (** For most languages, the functions composing the program are either @@ -577,7 +578,7 @@ Definition ef_reloads (ef: external_function) : bool := Definition external_function_eq: forall (ef1 ef2: external_function), {ef1=ef2} + {ef1<>ef2}. Proof. - generalize ident_eq string_dec signature_eq chunk_eq typ_eq list_eq_dec zeq Int.eq_dec; intros. + generalize profiling_id_eq ident_eq string_dec signature_eq chunk_eq typ_eq list_eq_dec zeq Int.eq_dec; intros. decide equality. Defined. Global Opaque external_function_eq. diff --git a/common/PrintAST.ml b/common/PrintAST.ml index 69939428..e24607ee 100644 --- a/common/PrintAST.ml +++ b/common/PrintAST.ml @@ -63,7 +63,7 @@ let name_of_external = function | EF_debug(kind, text, targs) -> sprintf "debug%d %S" (P.to_int kind) (extern_atom text) | EF_profiling(id, kind) -> - sprintf "profiling %LX %d" (Z.to_int64 id) (Z.to_int kind) + sprintf "profiling %a %d" Profilingaux.spp_id id (Z.to_int kind) let rec print_builtin_arg px oc = function | BA x -> px oc x |