diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-10-25 17:26:50 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-10-25 17:26:50 +0200 |
| commit | 65ab86a0e3df080ca9a1c37631904d8d02c07596 (patch) | |
| tree | d7af507348d5329948bd7ca13d362c0341cc555f /backend/SplitLongproof.v | |
| parent | 16e8902f08ed1bf7481a2e7f21b5ebb6c6c81814 (diff) | |
| download | compcert-kvx-65ab86a0e3df080ca9a1c37631904d8d02c07596.tar.gz compcert-kvx-65ab86a0e3df080ca9a1c37631904d8d02c07596.zip | |
SplitLong: propagate constants through "longofint"
This can make a big difference in which optimizations are triggered later.
Constants were already propagated by "longofintu".
Diffstat (limited to 'backend/SplitLongproof.v')
| -rw-r--r-- | backend/SplitLongproof.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/backend/SplitLongproof.v b/backend/SplitLongproof.v index 07759dc9..48b8f3d6 100644 --- a/backend/SplitLongproof.v +++ b/backend/SplitLongproof.v @@ -362,8 +362,9 @@ Qed. Theorem eval_longofint: unary_constructor_sound longofint Val.longofint. Proof. - red; intros. unfold longofint. - exploit (eval_shrimm ge sp e m (Int.repr 31) (x :: le) (Eletvar 0)). EvalOp. + red; intros. unfold longofint. destruct (longofint_match a). +- InvEval. econstructor; split. apply eval_longconst. auto. +- exploit (eval_shrimm ge sp e m (Int.repr 31) (x :: le) (Eletvar 0)). EvalOp. intros [v1 [A B]]. econstructor; split. EvalOp. destruct x; simpl; auto. |