diff options
| author | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-14 18:15:17 +0100 |
|---|---|---|
| committer | David Monniaux <David.Monniaux@univ-grenoble-alpes.fr> | 2022-02-14 18:15:17 +0100 |
| commit | 2867dee21f6fb696db554679d8535306c7a9d4ea (patch) | |
| tree | 85e09ee0dfdc157df266e007a32969a9645e86e9 /kvx/SelectLongproof.v | |
| parent | ed6e20995761614ee7ea6235b978a463f071c123 (diff) | |
| download | compcert-kvx-2867dee21f6fb696db554679d8535306c7a9d4ea.tar.gz compcert-kvx-2867dee21f6fb696db554679d8535306c7a9d4ea.zip | |
long -> single precision float done with instructions
Diffstat (limited to 'kvx/SelectLongproof.v')
| -rw-r--r-- | kvx/SelectLongproof.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/kvx/SelectLongproof.v b/kvx/SelectLongproof.v index b858158b..ca32d69a 100644 --- a/kvx/SelectLongproof.v +++ b/kvx/SelectLongproof.v @@ -933,7 +933,10 @@ Qed. Theorem eval_singleoflong: partial_unary_constructor_sound singleoflong Val.singleoflong. Proof. unfold singleoflong; red; intros. - eapply SplitLongproof.eval_singleoflong; eauto. + destruct use_inlined_fp_conversions. + - econstructor. split. apply FPExtra.e_single_of_long_correct. + eassumption. rewrite H0. cbn. constructor. + - eapply SplitLongproof.eval_singleoflong; eauto. Qed. Theorem eval_singleoflongu: partial_unary_constructor_sound singleoflongu Val.singleoflongu. |