diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-18 13:45:12 +0100 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-03-18 13:45:12 +0100 |
commit | e55d69912ce45869fa446c7d98ed306a58c81a92 (patch) | |
tree | ca5bf8b858422ee0f0a71191e2c86e09ec997665 /mppa_k1c/SelectLongproof.v | |
parent | 6275ab1693a3cc13966dac53069d4cf9981e6200 (diff) | |
download | compcert-kvx-e55d69912ce45869fa446c7d98ed306a58c81a92.tar.gz compcert-kvx-e55d69912ce45869fa446c7d98ed306a58c81a92.zip |
selection of andn/orn on long
Diffstat (limited to 'mppa_k1c/SelectLongproof.v')
-rw-r--r-- | mppa_k1c/SelectLongproof.v | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/mppa_k1c/SelectLongproof.v b/mppa_k1c/SelectLongproof.v index 27052edc..27681875 100644 --- a/mppa_k1c/SelectLongproof.v +++ b/mppa_k1c/SelectLongproof.v @@ -382,6 +382,7 @@ Proof. - econstructor; split. apply eval_longconst. simpl. rewrite Int64.and_commut; auto. - TrivialExists. simpl. rewrite Val.andl_assoc. rewrite Int64.and_commut; auto. - TrivialExists. +- TrivialExists. Qed. Theorem eval_andl: binary_constructor_sound andl Val.andl. @@ -390,6 +391,8 @@ Proof. red; intros. destruct (andl_match a b). - InvEval. rewrite Val.andl_commut. apply eval_andlimm; auto. - InvEval. apply eval_andlimm; auto. +- (*andn*) InvEval. TrivialExists. simpl. congruence. +- (*andn reverse*) InvEval. rewrite Val.andl_commut. TrivialExists; simpl. congruence. - TrivialExists. Qed. @@ -413,6 +416,8 @@ Proof. destruct (orl_match a b). - InvEval. rewrite Val.orl_commut. apply eval_orlimm; auto. - InvEval. apply eval_orlimm; auto. +- (*orn*) InvEval. TrivialExists; simpl; congruence. +- (*orn reversed*) InvEval. rewrite Val.orl_commut. TrivialExists; simpl; congruence. - TrivialExists. Qed. |