summaryrefslogtreecommitdiff
path: root/asmcomp/schedgen.ml
diff options
context:
space:
mode:
authorTom Kelly <ctk21@cl.cam.ac.uk>2020-04-19 17:44:38 +0100
committerTom Kelly <ctk21@cl.cam.ac.uk>2020-04-19 17:44:38 +0100
commit91add0c09592502a10e6c9acd7a32ec9f70a2a3c (patch)
tree92a0e9c3c03a20592d63709ec818999421818da2 /asmcomp/schedgen.ml
parent9286223b5dd834c1aef112f16c6a36b23e56a7ec (diff)
parent0bd539ae24b036382f855724aa671ea38032b042 (diff)
downloadocaml-91add0c09592502a10e6c9acd7a32ec9f70a2a3c.tar.gz
Merge commit '0bd539ae24b036382f855724aa671ea38032b042' into parallel_minor_gc_4_09
Diffstat (limited to 'asmcomp/schedgen.ml')
-rw-r--r--asmcomp/schedgen.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/schedgen.ml b/asmcomp/schedgen.ml
index 4bc6f1d2a3..38c4201e7e 100644
--- a/asmcomp/schedgen.ml
+++ b/asmcomp/schedgen.ml
@@ -384,7 +384,7 @@ method schedule_fundecl f =
self#reschedule ready_queue 0 (schedule i try_nesting)
end in
- if f.fun_fast then begin
+ if f.fun_fast && !Clflags.insn_sched then begin
let new_body = schedule f.fun_body 0 in
clear_code_dag();
{ fun_name = f.fun_name;