From 10941819e09e2f9090e7fe39301a0b9026a0eba0 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Wed, 5 Nov 2014 14:36:14 +0100 Subject: Verification of the Unusedglob pass (removal of unreferenced static global definitions). Assorted changes to ia32/Op.v. PowerPC and ARM need updating. --- backend/NeedDomain.v | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'backend/NeedDomain.v') diff --git a/backend/NeedDomain.v b/backend/NeedDomain.v index 73b6831a..8beff265 100644 --- a/backend/NeedDomain.v +++ b/backend/NeedDomain.v @@ -862,12 +862,12 @@ Proof. destruct H0. inv H0; constructor; auto with na. inv H0; constructor; auto with na. inv H8; constructor; auto with na. } - exploit (@eval_operation_inj _ _ ge inject_id). - intros. apply val_inject_lessdef. auto. + exploit (@eval_operation_inj _ _ _ _ ge ge inject_id). eassumption. auto. auto. auto. + instantiate (1 := op). intros. apply val_inject_lessdef; auto. apply val_inject_lessdef. instantiate (1 := Vptr sp Int.zero). instantiate (1 := Vptr sp Int.zero). auto. - apply val_list_inject_lessdef. eauto. - eauto. + apply val_list_inject_lessdef; eauto. + eauto. intros (v2 & A & B). exists v2; split; auto. apply vagree_lessdef. apply val_inject_lessdef. auto. Qed. -- cgit