diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-06-15 15:11:26 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bschommer@users.noreply.github.com> | 2017-07-06 15:41:51 +0200 |
| commit | dff22ef6d855973e0e0f05c7203a6bfa9a4cf01a (patch) | |
| tree | 82c09b8cff023557084d6257acdef84b1311dd35 /backend/RTLgenproof.v | |
| parent | 92fc8a425034abc1247203a4c0d471e8b6d0e941 (diff) | |
| download | compcert-kvx-dff22ef6d855973e0e0f05c7203a6bfa9a4cf01a.tar.gz compcert-kvx-dff22ef6d855973e0e0f05c7203a6bfa9a4cf01a.zip | |
Extend builtin arguments with a pointer addition operator
This extension enables more addressing modes to be encoded as builtin arguments and used in conjunction with volatile memory accesses.
Current status: x86 port only, the only new addressing mode handled is reg + offset.
Diffstat (limited to 'backend/RTLgenproof.v')
| -rw-r--r-- | backend/RTLgenproof.v | 27 |
1 files changed, 23 insertions, 4 deletions
diff --git a/backend/RTLgenproof.v b/backend/RTLgenproof.v index b635fd58..93f209b7 100644 --- a/backend/RTLgenproof.v +++ b/backend/RTLgenproof.v @@ -1010,10 +1010,18 @@ Lemma invert_eval_builtin_arg: /\ Events.eval_builtin_arg ge (fun v => v) sp m (fst (convert_builtin_arg a vl)) v /\ (forall vl', convert_builtin_arg a (vl ++ vl') = (fst (convert_builtin_arg a vl), vl')). Proof. - induction 1; simpl; econstructor; intuition eauto with evalexpr barg. - constructor. - constructor. - repeat constructor. + induction 1; simpl; try (econstructor; intuition eauto with evalexpr barg; fail). +- econstructor; split; eauto with evalexpr. split. constructor. auto. +- econstructor; split; eauto with evalexpr. split. constructor. auto. +- econstructor; split; eauto with evalexpr. split. repeat constructor. auto. +- destruct IHeval_builtin_arg1 as (vl1 & A1 & B1 & C1). + destruct IHeval_builtin_arg2 as (vl2 & A2 & B2 & C2). + destruct (convert_builtin_arg a1 vl1) as [a1' rl1] eqn:E1; simpl in *. + destruct (convert_builtin_arg a2 vl2) as [a2' rl2] eqn:E2; simpl in *. + exists (vl1 ++ vl2); split. + apply eval_exprlist_append; auto. + split. rewrite C1, E2. constructor; auto. + intros. rewrite app_ass, !C1, C2, E2. auto. Qed. Lemma invert_eval_builtin_args: @@ -1057,6 +1065,17 @@ Proof. rewrite CV2, CV4; simpl. intros (v2' & A2 & B2 & C2). exists (Val.longofwords v1' v2'); split. constructor; auto. split; auto. apply Val.longofwords_lessdef; auto. +- destruct (convert_builtin_arg a1 vl) as [a1' vl1] eqn:CV1; simpl in *. + destruct (convert_builtin_arg a2 vl1) as [a2' vl2] eqn:CV2; simpl in *. + destruct (convert_builtin_arg a1 rl) as [a1'' rl1] eqn:CV3; simpl in *. + destruct (convert_builtin_arg a2 rl1) as [a2'' rl2] eqn:CV4; simpl in *. + inv EV. + exploit IHa1; eauto. rewrite CV1; simpl; eauto. + rewrite CV1, CV3; simpl. intros (v1' & A1 & B1 & C1). + exploit IHa2. eexact C1. rewrite CV2; simpl; eauto. + rewrite CV2, CV4; simpl. intros (v2' & A2 & B2 & C2). + econstructor; split. constructor; eauto. + split; auto. destruct Archi.ptr64; auto using Val.add_lessdef, Val.addl_lessdef. Qed. Lemma transl_eval_builtin_args: |