diff options
author | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2019-03-05 14:18:17 +0100 |
---|---|---|
committer | Sylvain Boulmé <sylvain.boulme@univ-grenoble-alpes.fr> | 2019-03-05 14:18:17 +0100 |
commit | 49938c96f41e8891aebcecf76b98f3363ce55fd5 (patch) | |
tree | be582d3419976516336790c201e37710bf032e4f /mppa_k1c/abstractbb | |
parent | f8ae73357fd7650bc2409b9eddb5816d4025747e (diff) | |
download | compcert-kvx-49938c96f41e8891aebcecf76b98f3363ce55fd5.tar.gz compcert-kvx-49938c96f41e8891aebcecf76b98f3363ce55fd5.zip |
fix extraction of ImpConfig
Diffstat (limited to 'mppa_k1c/abstractbb')
-rw-r--r-- | mppa_k1c/abstractbb/Impure/ImpConfig.v | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mppa_k1c/abstractbb/Impure/ImpConfig.v b/mppa_k1c/abstractbb/Impure/ImpConfig.v index 3d807c4e..1bd93d4c 100644 --- a/mppa_k1c/abstractbb/Impure/ImpConfig.v +++ b/mppa_k1c/abstractbb/Impure/ImpConfig.v @@ -19,15 +19,18 @@ Module Type ImpureView. *) -(* *) +(* START COMMENT *) Module UnsafeImpure. Parameter unsafe_coerce: forall {A}, t A -> A. Parameter unsafe_coerce_not_really_correct: forall A (k: t A) (x:A), (unsafe_coerce k)=x -> mayRet k x. + Extraction Inline unsafe_coerce. + End UnsafeImpure. -(* *) +(* END COMMENT *) + End ImpureView. |