diff options
author | Cyril SIX <cyril.six@kalray.eu> | 2020-11-03 15:06:45 +0100 |
---|---|---|
committer | Cyril SIX <cyril.six@kalray.eu> | 2020-11-03 15:06:45 +0100 |
commit | 535a8f8706de231f1bd8a7f0243025d84906b03c (patch) | |
tree | 5a4def9024c63d318de6b716bab83523b983961a /driver | |
parent | e6612fdfd69037099037def2acba5df553c3b49a (diff) | |
download | compcert-kvx-535a8f8706de231f1bd8a7f0243025d84906b03c.tar.gz compcert-kvx-535a8f8706de231f1bd8a7f0243025d84906b03c.zip |
Loop Rotate with -flooprotate
Diffstat (limited to 'driver')
-rw-r--r-- | driver/Clflags.ml | 1 | ||||
-rw-r--r-- | driver/Driver.ml | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/driver/Clflags.ml b/driver/Clflags.ml index 89090b57..d1e7dd7f 100644 --- a/driver/Clflags.ml +++ b/driver/Clflags.ml @@ -43,6 +43,7 @@ let option_ftailduplicate = ref 0 (* perform tail duplication for blocks of size 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_flooprotate = ref 0 (* rotate the innermost loops to have the condition inside the loop body *) let option_fpostpass = ref true let option_fpostpass_sched = ref "list" diff --git a/driver/Driver.ml b/driver/Driver.ml index 27193ff1..d93578b6 100644 --- a/driver/Driver.ml +++ b/driver/Driver.ml @@ -215,6 +215,8 @@ Processing options: -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] + -flooprotate n Duplicates the header (condition computation part) of innermost loops to perform a loop rotate [0] + Doesn't duplicate if the size of that header is strictly greater than n -fforward-moves Forward moves after CSE -finline Perform inlining of functions [on] -finline-functions-called-once Integrate functions only required by their @@ -426,6 +428,7 @@ let cmdline_actions = @ f_opt "predict" option_fpredict @ [ Exact "-funrollsingle", Integer (fun n -> option_funrollsingle := n) ] @ [ Exact "-funrollbody", Integer (fun n -> option_funrollbody := n) ] + @ [ Exact "-flooprotate", Integer (fun n -> option_flooprotate := n) ] @ f_opt "tracelinearize" option_ftracelinearize @ f_opt_str "postpass" option_fpostpass option_fpostpass_sched @ f_opt "inline" option_finline |