diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-11 22:40:50 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-05-11 22:40:50 +0200 |
commit | 005093b87250b6b27b320eb789574da4bda616c0 (patch) | |
tree | 0adf1198f5b741d1da61523a5278fb90af18d9f7 /mppa_k1c/SelectLongproof.v | |
parent | 66ee59d3dc8a861b468cfaf0ff46fc71dfb8fec2 (diff) | |
download | compcert-kvx-005093b87250b6b27b320eb789574da4bda616c0.tar.gz compcert-kvx-005093b87250b6b27b320eb789574da4bda616c0.zip |
correct -faddx option and propagate addim over addxim
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 58a4c39a..78a2bb31 100644 --- a/mppa_k1c/SelectLongproof.v +++ b/mppa_k1c/SelectLongproof.v @@ -206,6 +206,11 @@ Proof. destruct sp; simpl; auto. destruct Archi.ptr64; auto. rewrite Ptrofs.add_assoc, (Ptrofs.add_commut m0). auto. - subst x. rewrite Val.addl_assoc. rewrite Int64.add_commut. TrivialExists. +- TrivialExists; simpl. subst x. + destruct v1; simpl; trivial. + destruct (Int.ltu _ _); simpl; trivial. + rewrite Int64.add_assoc. rewrite Int64.add_commut. + reflexivity. - pose proof eval_addlimm_shllimm as ADDXL. unfold unary_constructor_sound in ADDXL. unfold addxl in ADDXL. |