diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2019-03-20 11:30:21 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2019-03-20 11:30:21 +0100 |
commit | 7bd5d66520bfae2bdef6573a40798a5d6375be79 (patch) | |
tree | 86fbe49fed5ead01ca2d8e0d4e163b819ce40bfa /backend/SelectDivproof.v | |
parent | 84af0898061f8689a84041acc309d63379389366 (diff) | |
download | compcert-kvx-7bd5d66520bfae2bdef6573a40798a5d6375be79.tar.gz compcert-kvx-7bd5d66520bfae2bdef6573a40798a5d6375be79.zip |
Proving eval_divs_base
Diffstat (limited to 'backend/SelectDivproof.v')
-rw-r--r-- | backend/SelectDivproof.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/SelectDivproof.v b/backend/SelectDivproof.v index 3fd50b76..9b99fcbf 100644 --- a/backend/SelectDivproof.v +++ b/backend/SelectDivproof.v @@ -702,7 +702,7 @@ Proof. || Int.eq i (Int.repr Int.min_signed) && Int.eq n2 Int.mone) eqn:Z2; inv DIV. destruct (Int.is_power2 n2) as [l | ] eqn:P2. - destruct (Int.ltu l (Int.repr 31)) eqn:LT31. - + exploit (eval_shrximm ge sp e m (Vint i :: le) (Eletvar O)). + + exploit (eval_shrximm prog sp e m (Vint i :: le) (Eletvar O)). constructor. simpl; eauto. eapply Val.divs_pow2; eauto. intros [v1 [X LD]]. inv LD. econstructor; split. econstructor. eauto. |