diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-07 09:49:58 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-07 09:49:58 +0200 |
| commit | f2831013b46d0486e5e134f26fde9ece7b78ff93 (patch) | |
| tree | 9baa6452b44cb21e471e589a011c324d816bae44 /x86/Op.v | |
| parent | 75109076ec027675e297ff1273660fc6b5a5f239 (diff) | |
| download | compcert-kvx-f2831013b46d0486e5e134f26fde9ece7b78ff93.tar.gz compcert-kvx-f2831013b46d0486e5e134f26fde9ece7b78ff93.zip | |
more for passing notrap through x86
Diffstat (limited to 'x86/Op.v')
| -rw-r--r-- | x86/Op.v | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -1505,6 +1505,19 @@ Proof. econstructor; eauto. rewrite Ptrofs.add_zero_l; auto. Qed. +Lemma eval_addressing_inject_none: + forall addr vl1 vl2, + Val.inject_list f vl1 vl2 -> + eval_addressing genv (Vptr sp1 Ptrofs.zero) addr vl1 = None -> + eval_addressing genv (Vptr sp2 Ptrofs.zero) (shift_stack_addressing delta addr) vl2 = None. +Proof. + intros. + rewrite eval_shift_stack_addressing. + eapply eval_addressing_inj_none with (sp1 := Vptr sp1 Ptrofs.zero); eauto. + intros. apply symbol_address_inject. + econstructor; eauto. rewrite Ptrofs.add_zero_l; auto. +Qed. + Lemma eval_operation_inject: forall op vl1 vl2 v1 m1 m2, Val.inject_list f vl1 vl2 -> |