diff options
| -rw-r--r-- | scheduling/RTLtoBTLproof.v | 2 | ||||
| -rw-r--r-- | tools/compiler_expand.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/scheduling/RTLtoBTLproof.v b/scheduling/RTLtoBTLproof.v index 5cebd33c..f89ea5cf 100644 --- a/scheduling/RTLtoBTLproof.v +++ b/scheduling/RTLtoBTLproof.v @@ -314,7 +314,7 @@ Proof. destruct ofin; simpl; auto. Qed. -(* TODO useless? *) +(* TODO gourdinl useless? *) Lemma expand_iblock_istep_run_Some_rec sp ib rs0 m0 rs1 m1 ofin1: forall (ISTEP: iblock_istep_run tge sp ib rs0 m0 = Some {| _rs := rs1; _m := m1; _fin := ofin1 |}) diff --git a/tools/compiler_expand.ml b/tools/compiler_expand.ml index be3c6e19..29403c7e 100644 --- a/tools/compiler_expand.ml +++ b/tools/compiler_expand.ml @@ -52,7 +52,7 @@ PARTIAL, Always, Require, (Some "Unused globals"), "Unusedglob" let post_rtl_passes = [| PARTIAL, Always, Require, (Some "BTL generation"), "RTLtoBTL", Noprint; - (*PARTIAL, Always, Require, (Some "Prepass scheduling"), "RTLpathScheduler", Noprint;*) + (*TODO gourdinl PARTIAL, Always, Require, (Some "Prepass scheduling"), "RTLpathScheduler", Noprint;*) PARTIAL, Always, Require, (Some "Projection to RTL"), "BTLtoRTL", (Print (Printf.sprintf "RTL %d" ((Array.length rtl_passes) + 1))); PARTIAL, Always, Require, (Some "Register allocation"), "Allocation", (Print "LTL 1"); PARTIAL, Always, Require, (Some "Branch tunneling"), "Tunneling", (Print "LTL 2"); |