From 917859721f6423b24788ec6219774b5196b02ec1 Mon Sep 17 00:00:00 2001 From: Cyril SIX Date: Thu, 1 Mar 2018 14:45:06 +0100 Subject: MPPA - Machregs + Conventions1 + backend proof tweaking --- backend/Stackingproof.v | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'backend/Stackingproof.v') diff --git a/backend/Stackingproof.v b/backend/Stackingproof.v index f7570f57..6d46d04d 100644 --- a/backend/Stackingproof.v +++ b/backend/Stackingproof.v @@ -1925,10 +1925,15 @@ 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' -- cgit