diff options
Diffstat (limited to 'aarch64/Peephole.v')
-rw-r--r-- | aarch64/Peephole.v | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/aarch64/Peephole.v b/aarch64/Peephole.v index 167def44..ba78b29f 100644 --- a/aarch64/Peephole.v +++ b/aarch64/Peephole.v @@ -115,11 +115,10 @@ Fixpoint stp_rep (insns : list basic) : list basic := end. Definition optimize_body (insns : list basic) := - stp_rep (ldp_rep insns). (* TODO ADD A FLAG TO ENABLE PEEPHOLE *) - (*if Compopts.optim_coalesce_mem tt*) - (*then ldp_rep insns*) - (*else insns.*) + if Compopts.optim_coalesce_mem tt + then stp_rep (ldp_rep insns) + else insns. Program Definition optimize_bblock (bb : bblock) := let optimized := optimize_body (body bb) in |