diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-07-15 08:26:16 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-07-15 08:26:16 +0000 |
| commit | 93b89122000e42ac57abc39734fdf05d3a89e83c (patch) | |
| tree | 43bbde048cff6f58ffccde99b862dce0891b641d /backend/RTL.v | |
| parent | 5fccbcb628c5282cf1b13077d5eeccf497d58c38 (diff) | |
| download | compcert-kvx-93b89122000e42ac57abc39734fdf05d3a89e83c.tar.gz compcert-kvx-93b89122000e42ac57abc39734fdf05d3a89e83c.zip | |
Merge of branch new-semantics: revised and strengthened top-level statements of semantic preservation.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1683 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/RTL.v')
| -rw-r--r-- | backend/RTL.v | 26 |
1 files changed, 24 insertions, 2 deletions
diff --git a/backend/RTL.v b/backend/RTL.v index 2cb27196..10d4a3f0 100644 --- a/backend/RTL.v +++ b/backend/RTL.v @@ -345,8 +345,30 @@ Inductive final_state: state -> int -> Prop := | final_state_intro: forall r m, final_state (Returnstate nil (Vint r) m) r. -Definition exec_program (p: program) (beh: program_behavior) : Prop := - program_behaves step (initial_state p) final_state (Genv.globalenv p) beh. +(** The small-step semantics for a program. *) + +Definition semantics (p: program) := + Semantics step (initial_state p) final_state (Genv.globalenv p). + +(** This semantics is receptive to changes in events. *) + +Lemma semantics_receptive: + forall (p: program), receptive (semantics p). +Proof. + intros. constructor; simpl; intros. +(* receptiveness *) + assert (t1 = E0 -> exists s2, step (Genv.globalenv p) s t2 s2). + intros. subst. inv H0. exists s1; auto. + inversion H; subst; auto. + exploit external_call_receptive; eauto. intros [vres2 [m2 EC2]]. + exists (State s0 f sp pc' (rs#res <- vres2) m2). eapply exec_Ibuiltin; eauto. + exploit external_call_receptive; eauto. intros [vres2 [m2 EC2]]. + exists (Returnstate s0 vres2 m2). econstructor; eauto. +(* trace length *) + inv H; simpl; try omega. + eapply external_call_trace_length; eauto. + eapply external_call_trace_length; eauto. +Qed. (** * Operations on RTL abstract syntax *) |