diff options
| author | Cyril SIX <cyril.six@kalray.eu> | 2020-10-16 14:38:06 +0200 |
|---|---|---|
| committer | Cyril SIX <cyril.six@kalray.eu> | 2020-10-16 14:39:44 +0200 |
| commit | a2f31f2b886ccb9656a019db1780aabc1789368a (patch) | |
| tree | 0ea125e3c937ef1dba0ce409056eb0ed1c0779fe /driver | |
| parent | 0881f48aec682f14ea396420f8244b7281b848f0 (diff) | |
| download | compcert-kvx-a2f31f2b886ccb9656a019db1780aabc1789368a.tar.gz compcert-kvx-a2f31f2b886ccb9656a019db1780aabc1789368a.zip | |
Loop body unrolling with -funrollbody n
Diffstat (limited to 'driver')
| -rw-r--r-- | driver/Clflags.ml | 1 | ||||
| -rw-r--r-- | driver/Driver.ml | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index 8bc7a938..9df58903 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -39,6 +39,7 @@ let option_fpredict = ref true (* insert static branch prediction information, a let option_ftailduplicate = ref 0 (* perform tail duplication for blocks of size n *) let option_ftracelinearize = ref true (* uses branch prediction information to improve the linearization *) let option_funrollsingle = ref 0 (* unroll a single iteration of innermost loops of size n *) +let option_funrollbody = ref 0 (* unroll the body of innermost loops of size n *) let option_fpostpass = ref true let option_fpostpass_sched = ref "list" diff --git a/driver/Driver.ml b/driver/Driver.ml index 7ab80540..12f50762 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -212,6 +212,7 @@ Processing options: -ftailduplicate n Perform tail duplication for RTL code blocks of size n (not counting Inops) [0] -ftracelinearize Uses branch prediction information to improve the Linearize [on] -funrollsingle n Unrolls a single iteration of innermost loops of size n (not counting Inops) [0] + -funrollbody n Unrolls once the body of innermost loops of size n (not counting Inops) [0] -fforward-moves Forward moves after CSE -finline Perform inlining of functions [on] -finline-functions-called-once Integrate functions only required by their @@ -420,6 +421,7 @@ let cmdline_actions = @ [ Exact "-ftailduplicate", Integer (fun n -> option_ftailduplicate := n) ] @ f_opt "predict" option_fpredict @ [ Exact "-funrollsingle", Integer (fun n -> option_funrollsingle := n) ] + @ [ Exact "-funrollbody", Integer (fun n -> option_funrollbody := n) ] @ f_opt "tracelinearize" option_ftracelinearize @ f_opt_str "postpass" option_fpostpass option_fpostpass_sched @ f_opt "inline" option_finline |