diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-02 18:30:25 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-09-02 18:30:25 +0200 |
| commit | 71c58a8d494eafd847776446b0c246229b2bc9cf (patch) | |
| tree | 7570087588f24b3b340baeed5871b398bf7fc390 /backend/Tailcallproof.v | |
| parent | dc8b24fa2dd7ede561dd75458899cf42e9be09d2 (diff) | |
| download | compcert-kvx-71c58a8d494eafd847776446b0c246229b2bc9cf.tar.gz compcert-kvx-71c58a8d494eafd847776446b0c246229b2bc9cf.zip | |
avancement (il faut utiliser Vundef visiblement)
Diffstat (limited to 'backend/Tailcallproof.v')
| -rw-r--r-- | backend/Tailcallproof.v | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/backend/Tailcallproof.v b/backend/Tailcallproof.v index 06e314f3..4a5e83a1 100644 --- a/backend/Tailcallproof.v +++ b/backend/Tailcallproof.v @@ -438,6 +438,19 @@ Proof. apply eval_addressing_preserved. exact symbols_preserved. eauto. econstructor; eauto. apply set_reg_lessdef; auto. + (* TODO *) +- (* load notrap1 *) + TransfInstr. + assert (Val.lessdef_list (rs##args) (rs'##args)). apply regs_lessdef_regs; auto. + + intros [a' [ADDR' ALD]]. + exploit Mem.loadv_extends; eauto. + intros [v' [LOAD' VLD]]. + left. exists (State s' (transf_function f) (Vptr sp0 Ptrofs.zero) pc' (rs'#dst <- v') m'); split. + eapply exec_Iload with (a := a'). eauto. rewrite <- ADDR'. + apply eval_addressing_preserved. exact symbols_preserved. eauto. + econstructor; eauto. apply set_reg_lessdef; auto. + - (* store *) TransfInstr. assert (Val.lessdef_list (rs##args) (rs'##args)). apply regs_lessdef_regs; auto. |