Skip to content

Commit 3d26bbe

Browse files
authored
flambda-backend: Fix a bug with warning 199 and -stop-after typing (#2513)
1 parent 467ae7b commit 3d26bbe

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

driver/compile_common.ml

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -139,9 +139,10 @@ let implementation ~hook_parse_tree ~hook_typed_tree info ~backend =
139139
let typed = typecheck_impl info parsed in
140140
hook_typed_tree typed;
141141
if Clflags.(should_stop_after Compiler_pass.Typing) then () else begin
142-
backend info typed
142+
backend info typed;
143143
end;
144144
end;
145-
Builtin_attributes.warn_unchecked_property ();
145+
if not (Clflags.(should_stop_after Compiler_pass.Selection)) then
146+
Builtin_attributes.warn_unchecked_property ();
146147
Warnings.check_fatal ();
147148
)

0 commit comments

Comments
 (0)