diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-08 09:49:24 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-04-08 09:49:24 +0200 |
| commit | 84c5408706feb748cf364efcbe6a67512d622f40 (patch) | |
| tree | 0f16ea36fecbda59de6911dd7a65ba0787d6bdde /cfrontend | |
| parent | c6356cdc5f567a317afcb99cb004354cf7dcce0f (diff) | |
| download | compcert-kvx-84c5408706feb748cf364efcbe6a67512d622f40.tar.gz compcert-kvx-84c5408706feb748cf364efcbe6a67512d622f40.zip | |
added EF_profiling
Diffstat (limited to 'cfrontend')
| -rw-r--r-- | cfrontend/Cexec.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/cfrontend/Cexec.v b/cfrontend/Cexec.v index b08c3ad7..609689a7 100644 --- a/cfrontend/Cexec.v +++ b/cfrontend/Cexec.v @@ -509,6 +509,10 @@ Definition do_ef_debug (kind: positive) (text: ident) (targs: list typ) (w: world) (vargs: list val) (m: mem) : option (world * trace * val * mem) := Some(w, E0, Vundef, m). +Definition do_ef_profiling (id : profiling_id) + (w: world) (vargs: list val) (m: mem) : option (world * trace * val * mem) := + Some(w, E0, Vundef, m). + Definition do_builtin_or_external (name: string) (sg: signature) (w: world) (vargs: list val) (m: mem) : option (world * trace * val * mem) := match lookup_builtin_function name sg with @@ -531,6 +535,7 @@ Definition do_external (ef: external_function): | EF_annot_val kind text targ => do_ef_annot_val text targ | EF_inline_asm text sg clob => do_inline_assembly text sg ge | EF_debug kind text targs => do_ef_debug kind text targs + | EF_profiling id => do_ef_profiling id end. Lemma do_ef_external_sound: @@ -598,6 +603,8 @@ Proof with try congruence. eapply do_inline_assembly_sound; eauto. - (* EF_debug *) unfold do_ef_debug. mydestr. split; constructor. +- (* EF_profiling *) + unfold do_ef_profiling. mydestr. split; constructor. Qed. Lemma do_ef_external_complete: @@ -652,6 +659,8 @@ Proof. eapply do_inline_assembly_complete; eauto. - (* EF_debug *) inv H. inv H0. reflexivity. +- (* EF_profiling *) + inv H. inv H0. reflexivity. Qed. (** * Reduction of expressions *) |