diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-12-08 09:17:41 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-12-08 09:17:41 +0100 |
| commit | cb93a301fd2ddae3071ae0838290b201496d90ef (patch) | |
| tree | b1531d98e7c7e57a2c56e0550cb0e354278f1016 /aarch64/Asmgenproof.v | |
| parent | 23da7b35d0edf98f271401ac93a1fa06adb062a2 (diff) | |
| parent | b40aef6c55b837786cd749260e8e8d8a1d328034 (diff) | |
| download | compcert-kvx-cb93a301fd2ddae3071ae0838290b201496d90ef.tar.gz compcert-kvx-cb93a301fd2ddae3071ae0838290b201496d90ef.zip | |
Merge github.com:AbsInt/CompCert into kvx-workv3.8_kvx_instructions_fixed
Diffstat (limited to 'aarch64/Asmgenproof.v')
| -rw-r--r-- | aarch64/Asmgenproof.v | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/aarch64/Asmgenproof.v b/aarch64/Asmgenproof.v index 6831509f..df88043f 100644 --- a/aarch64/Asmgenproof.v +++ b/aarch64/Asmgenproof.v @@ -868,13 +868,16 @@ Local Transparent destroyed_by_op. econstructor; eauto. instantiate (2 := tf); instantiate (1 := x). unfold nextinstr. rewrite Pregmap.gss. - rewrite set_res_other. rewrite undef_regs_other_2. + rewrite set_res_other. rewrite undef_regs_other. rewrite <- H1. simpl. econstructor; eauto. eapply code_tail_next_int; eauto. - rewrite preg_notin_charact. intros. auto with asmgen. + simpl; intros. destruct H4. congruence. destruct H4. congruence. + exploit list_in_map_inv; eauto. intros (mr & U & V). subst. + auto with asmgen. auto with asmgen. apply agree_nextinstr. eapply agree_set_res; auto. - eapply agree_undef_regs; eauto. intros. rewrite undef_regs_other_2; auto. + eapply agree_undef_regs; eauto. intros. + simpl. rewrite undef_regs_other_2; auto. Simpl. congruence. Simpl. @@ -936,7 +939,7 @@ Local Transparent destroyed_by_op. exploit functions_transl; eauto. intro FN. generalize (transf_function_no_overflow _ _ H5); intro NOOV. exploit find_label_goto_label. eauto. eauto. - instantiate (2 := rs0#X16 <- Vundef #X17 <- Vundef). + instantiate (2 := rs0#X16 <- Vundef). Simpl. eauto. eauto. intros [tc' [rs' [A [B C]]]]. |