diff options
author | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-16 12:44:34 +0100 |
---|---|---|
committer | Léo Gourdin <leo.gourdin@univ-grenoble-alpes.fr> | 2021-02-16 12:44:34 +0100 |
commit | cc740857ade958df35a488a3c1d9bffac974a9db (patch) | |
tree | d40d7d2ee55875e8027844637c4659dc1c0cff16 /scheduling | |
parent | cf935c40a4a89daff41474d989b7aae60a3b3198 (diff) | |
download | compcert-kvx-cc740857ade958df35a488a3c1d9bffac974a9db.tar.gz compcert-kvx-cc740857ade958df35a488a3c1d9bffac974a9db.zip |
Adding a compiler option -fexpanse-rtlcond
Diffstat (limited to 'scheduling')
-rw-r--r-- | scheduling/RTLpathScheduleraux.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scheduling/RTLpathScheduleraux.ml b/scheduling/RTLpathScheduleraux.ml index 5e4999db..79959ef2 100644 --- a/scheduling/RTLpathScheduleraux.ml +++ b/scheduling/RTLpathScheduleraux.ml @@ -284,7 +284,9 @@ let rec do_schedule code pm = function | [] -> (code, pm) | sb :: lsb -> (*debug_flag := true;*) - let (code_exp, pm) = expanse sb code pm in + let (code_exp, pm) = + if !Clflags.option_fexpanse_rtlcond then (expanse sb code pm) + else (code, pm) in (*debug_flag := false;*) (* Trick: instead of turning loads into non trap as needed.. * First, we turn them all into non-trap. |