We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0d6e992 commit bac32dbCopy full SHA for bac32db
backend/asmgen.ml
@@ -186,7 +186,7 @@ let compile_fundecl ~ppf_dump fd_cmm =
186
if !use_ocamlcfg then begin
187
fd
188
++ Profile.record ~accumulate:true "linear_to_cfg"
189
- (Linear_to_cfg.run ~preserve_orig_labels:false)
+ (Linear_to_cfg.run ~preserve_orig_labels:true)
190
++ pass_dump_cfg_if ppf_dump dump_cfg "After linear_to_cfg"
191
++ Profile.record ~accumulate:true "cfg_to_linear" (fun cfg ->
192
let fun_body, fun_tailrec_entry_point_label = Cfg_to_linear.run cfg in
0 commit comments