2
0
Caue Waneck 13 жил өмнө
parent
commit
11ba0484ac
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  1. 1 1
      gencommon.ml

+ 1 - 1
gencommon.ml

@@ -8621,7 +8621,7 @@ struct
               | Some (TBool false), _ ->
                 has_break := last_has_break;
                 do_warn expr.epos;
-                null expr.etype expr.epos, k
+                null expr.etype expr.epos, Normal
               | _ ->
                 has_break := last_has_break;
                 return_loop { expr with eexpr = TWhile(cond,block,flag) } Normal