Changes to the cases in switch were not committed.

Author: cristianoc

jscomp/core/j.ml

@@ -329,6 +329,7 @@ and 'a case_clause = {
   switch_case : 'a ; 
   switch_body : block ;
   should_break :  bool ;  (* true means break *)
+  comment : string option ;
 }
 
 (* TODO: For efficency: block should not be a list, it should be able to 

jscomp/core/js_dump.ml

@@ -499,12 +499,13 @@ and  pp_function is_method
 and pp_one_case_clause : 'a .
   _ -> P.t -> (P.t -> 'a -> unit) -> 'a J.case_clause -> _
   = fun cxt f  pp_cond
-    ({switch_case; switch_body ; should_break } : _ J.case_clause) ->
+    ({switch_case; switch_body ; should_break; comment; } : _ J.case_clause) ->
     let cxt =
       P.group f 1  (fun _ ->
           P.group f 1 (fun _ ->
               P.string f L.case;
               P.space f ;
+              pp_comment_option f comment;
               pp_cond  f switch_case; (* could be integer or string *)
               P.space f ;
               P.string f L.colon  );