From 255cee09b71255051c2b40eae0c88bffce1f6f32 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 20 Apr 2013 07:54:52 +0000 Subject: Big merge of the newregalloc-int64 branch. Lots of changes in two directions: 1- new register allocator (+ live range splitting, spilling&reloading, etc) based on a posteriori validation using the Rideau-Leroy algorithm 2- support for 64-bit integer arithmetic (type "long long"). git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2200 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/CSEproof.v | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) (limited to 'backend/CSEproof.v') diff --git a/backend/CSEproof.v b/backend/CSEproof.v index 8fc9407b..1e269f84 100644 --- a/backend/CSEproof.v +++ b/backend/CSEproof.v @@ -996,12 +996,7 @@ Proof. rewrite <- RES. apply eval_operation_preserved. exact symbols_preserved. (* state matching *) econstructor; eauto. - apply wt_regset_assign; auto. - generalize (wt_instrs _ _ WTF pc _ H); intro WTI; inv WTI. - simpl in H0. inv H0. rewrite <- H3. apply WTREGS. - replace (tyenv res) with (snd (type_of_operation op)). - eapply type_of_operation_sound; eauto. - rewrite <- H6. reflexivity. + eapply wt_exec_Iop; eauto. eapply wt_instrs; eauto. eapply analysis_correct_1; eauto. simpl; auto. unfold transfer; rewrite H. eapply add_op_satisfiable; eauto. eapply wf_analyze; eauto. @@ -1028,8 +1023,7 @@ Proof. eapply exec_Iload; eauto. (* state matching *) econstructor; eauto. - generalize (wt_instrs _ _ WTF pc _ H); intro WTI; inv WTI. - apply wt_regset_assign. auto. rewrite H8. eapply type_of_chunk_correct; eauto. + eapply wt_exec_Iload; eauto. eapply wt_instrs; eauto. eapply analysis_correct_1; eauto. simpl; auto. unfold transfer; rewrite H. eapply add_load_satisfiable; eauto. eapply wf_analyze; eauto. -- cgit