Fix the logic of fast => not Reduce_code_size

ocaml · Mar 5, 2018 · feb7538 · feb7538
1 parent 5f210a5
commit feb7538
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/asmcomp/cmmgen.ml b/asmcomp/cmmgen.ml
@@ -2828,9 +2828,9 @@ let transl_function f =
       transl env body in
   let fun_codegen_options =
     if !Clflags.optimize_for_speed then
-      [ Reduce_code_size ]
-    else
       []
+    else
+      [ Reduce_code_size ]
   in
   Cfunction {fun_name = f.label;
              fun_args = List.map (fun id -> (id, typ_val)) f.params;

diff --git a/asmcomp/linearize.ml b/asmcomp/linearize.ml
@@ -311,7 +311,7 @@ let rec linear i n =
 let fundecl f =
   { fun_name = f.Mach.fun_name;
     fun_body = linear f.Mach.fun_body end_instr;
-    fun_fast = List.mem Cmm.Reduce_code_size f.Mach.fun_codegen_options;
+    fun_fast = not (List.mem Cmm.Reduce_code_size f.Mach.fun_codegen_options);
     fun_dbg  = f.Mach.fun_dbg;
     fun_spacetime_shape = f.Mach.fun_spacetime_shape;
   }