Project

General

Profile

Revision e8f55c25 src/backends/C/c_backend_common.ml

View differences:

src/backends/C/c_backend_common.ml
226 226
let rec pp_c_const fmt c =
227 227
  match c with
228 228
    | Const_int i     -> pp_print_int fmt i
229
    | Const_real (c,e,s)-> pp_print_string fmt s (* Format.fprintf fmt "%ie%i" c e*)
229
    | Const_real r -> Real.pp fmt r
230 230
    (* | Const_float r   -> pp_print_float fmt r *)
231 231
    | Const_tag t     -> pp_c_tag fmt t
232 232
    | Const_array ca  -> fprintf fmt "{%a }" (Utils.fprintf_list ~sep:", " pp_c_const) ca

Also available in: Unified diff