diff options
| author |  xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-08-16 15:35:09 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-08-16 15:35:09 +0000 |
| commit | 4b119d6f9f0e846edccaf5c08788ca1615b22526 (patch) | |
| tree | 66cf55decd8d950d0bdc1050448aa3ee448ca13a /backend/Tunneling.v | |
| parent | 1fe28ba1ec3dd0657b121c4a911ee1cb046bab09 (diff) | |
Cil2Csyntax: added goto and labels; added assignment between structs
Kildall: simplified the interface
Constprop, CSE, Allocation, Linearize: updated for the new Kildall
RTL, LTL: removed the well-formedness condition on the CFG,
it is no longer necessary with the new Kildall and it is problematic
for validated optimizations.
Maps: more efficient implementation of PTree.fold.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1124 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Tunneling.v')
| -rw-r--r-- | backend/Tunneling.v | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/backend/Tunneling.v b/backend/Tunneling.v index 4b1417f..ef55a15 100644 --- a/backend/Tunneling.v +++ b/backend/Tunneling.v @@ -110,16 +110,6 @@ Definition tunnel_instr (uf: U.t) (b: instruction) : instruction := Lreturn or end. -Lemma wf_tunneled_code: - forall (f: LTL.function) (uf: U.t), - let tc := PTree.map (fun pc b => tunnel_instr uf b) (fn_code f) in - forall (pc: node), Plt pc (fn_nextpc f) \/ tc!pc = None. -Proof. - intros. elim (fn_code_wf f pc); intro. - left; auto. right; unfold tc. - rewrite PTree.gmap; unfold option_map; rewrite H; auto. -Qed. - Definition tunnel_function (f: LTL.function) : LTL.function := let uf := record_gotos f in mkfunction @@ -127,9 +117,7 @@ Definition tunnel_function (f: LTL.function) : LTL.function := (fn_params f) (fn_stacksize f) (PTree.map (fun pc b => tunnel_instr uf b) (fn_code f)) - (U.repr uf (fn_entrypoint f)) - (fn_nextpc f) - (wf_tunneled_code f uf). + (U.repr uf (fn_entrypoint f)). Definition tunnel_fundef (f: LTL.fundef) : LTL.fundef := transf_fundef tunnel_function f. |