We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 36fe15d commit c86a597Copy full SHA for c86a597
backend/select_utils.ml
@@ -147,7 +147,7 @@ let pop_all_traps env =
147
| Operation.Uncaught -> acc
148
| Operation.Specific_trap (lbl, t) -> pop_all (Pop lbl :: acc) t
149
in
150
- pop_all [] env.trap_stack
+ pop_all [] env.trap_stack |> List.rev
151
152
let env_create ~tailrec_label =
153
{ vars = V.Map.empty;
@@ -508,7 +508,7 @@ module Stack_offset_and_exn = struct
508
InstructionId.format instr.id
509
| top_trap :: traps ->
510
(* CR-soon gyorsh: investigate why this check sometimes fails. *)
511
- if false && not (Label.equal lbl_handler top_trap)
+ if not (Label.equal lbl_handler top_trap)
512
then
513
Misc.fatal_errorf
514
"Cfgize.Stack_offset_and_exn.process_basic: poptrap label %a does \
0 commit comments