Project

General

Profile

Revision 0d54d8a8 src/backends/C/c_backend_src.ml

View differences:

src/backends/C/c_backend_src.ml
137 137
    | Const_array ca       -> let var_type = Types.array_element_type var_type in
138 138
                              fprintf fmt "(%a[]){%a }" (pp_c_type "") var_type (Utils.fprintf_list ~sep:", " (pp_c_const_suffix var_type)) ca
139 139
    | Const_struct fl       -> fprintf fmt "{%a }" (Utils.fprintf_list ~sep:", " (fun fmt (f, c) -> (pp_c_const_suffix (Types.struct_field_type var_type f)) fmt c)) fl
140
    | Const_string _        -> assert false (* string occurs in annotations not in C *)
140
    | Const_string _
141
      | Const_modeid _ -> assert false (* string occurs in annotations not in C *)
141 142

  
142 143

  
143 144
(* Prints a [value] of type [var_type] indexed by the suffix list [loop_vars] *)

Also available in: Unified diff