diff options
| author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2021-02-23 16:32:34 +0100 |
|---|---|---|
| committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2021-02-23 16:32:34 +0100 |
| commit | 9cddf9110be0f088a62334e6eff74667110c5db8 (patch) | |
| tree | 0550fe192dc34accd1f96a191d666fa4093b4511 | |
| parent | 75a9af775b8fcc35d2d9218a1311a637db0fc344 (diff) | |
| download | compcert-kvx-9cddf9110be0f088a62334e6eff74667110c5db8.tar.gz compcert-kvx-9cddf9110be0f088a62334e6eff74667110c5db8.zip | |
fix comments
| -rw-r--r-- | scheduling/RTLpathSE_impl.v | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/scheduling/RTLpathSE_impl.v b/scheduling/RTLpathSE_impl.v index d5921e51..bd7ae2ad 100644 --- a/scheduling/RTLpathSE_impl.v +++ b/scheduling/RTLpathSE_impl.v @@ -484,6 +484,11 @@ Definition fScons (hsv: hsval) (lhsv: list_hsval): list_hsval := (* TODO: Lemma fScons_correct *) +(* END "fake" hsval ... *) + + +(** Convert a "fake" hash-consed term into a "real" hash-consed term *) + Fixpoint fsval_proj hsv: ?? hsval := match hsv with | HSinput r hc => @@ -524,8 +529,6 @@ Admitted. Global Opaque fsval_proj. Local Hint Resolve fsval_proj_correct: wlp. -(* END "fake" hsval ... *) - (** ** Assignment of memory *) Definition hslocal_set_smem (hst:hsistate_local) hm := {| hsi_smem := hm; |