[hxb] write/read cl_init too

src/compiler/hxb/hxbReader.ml

@@ -1086,6 +1086,7 @@ class hxb_reader
 			let _ = self#read_string in
 			self#read_class_field m (Option.get c.cl_constructor)
 		) in
+		c.cl_init <- self#read_option (fun () -> self#read_texpr);
 		let f fields =
 			let name = self#read_string in
 			let cf = PMap.find name fields in

src/compiler/hxb/hxbWriter.ml

@@ -1340,7 +1340,9 @@ class ['a] hxb_writer
 				| _ ->
 					self#select_type c.cl_path;
 				end;
+
 				chunk#write_option c.cl_constructor self#write_class_field;
+				chunk#write_option c.cl_init self#write_texpr;
 				chunk#write_list c.cl_ordered_fields self#write_class_field;
 				chunk#write_list c.cl_ordered_statics self#write_class_field;
 			)