diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2018-11-26 17:35:31 +0100 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2018-11-26 17:35:31 +0100 |
| commit | 5631ccb7c416bb7ecbe7920cb432a78436c0a7ac (patch) | |
| tree | c84dfc9edea4d1aaf48985a229dddb811cbc3ffa /backend/Stackingproof.v | |
| parent | 3d38bf85c8ac3a83fe7aaeb5e01bb9a8403e6a60 (diff) | |
| download | compcert-kvx-5631ccb7c416bb7ecbe7920cb432a78436c0a7ac.tar.gz compcert-kvx-5631ccb7c416bb7ecbe7920cb432a78436c0a7ac.zip | |
BROKEN - works for x86, not for k1 anymore
Diffstat (limited to 'backend/Stackingproof.v')
| -rw-r--r-- | backend/Stackingproof.v | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/backend/Stackingproof.v b/backend/Stackingproof.v index c9b07427..ffd9b227 100644 --- a/backend/Stackingproof.v +++ b/backend/Stackingproof.v @@ -1893,15 +1893,10 @@ Proof. exact symbols_preserved. eauto. econstructor; eauto with coqlib. apply agree_regs_set_reg; auto. - (* FIXME - MPPA specific *) - replace (destroyed_by_op op) with (@nil mreg). - replace (LTL.undef_regs nil rs) with rs. - apply agree_locs_set_reg; auto. auto. auto. -(* (* The generic proof is there *) rewrite transl_destroyed_by_op. apply agree_regs_undef_regs; auto. apply agree_locs_set_reg; auto. apply agree_locs_undef_locs. auto. apply destroyed_by_op_caller_save. apply frame_set_reg. apply frame_undef_regs. exact SEP. -*) + - (* Lload *) assert (exists a', eval_addressing ge (Vptr sp' Ptrofs.zero) (transl_addr (make_env (function_bounds f)) addr) rs0##args = Some a' |