Project

General

Profile

Revision 5318ad88 src/backends/C/c_backend_src.ml

View differences:

src/backends/C/c_backend_src.ml
163 163
    | _           :: q, Power (v, n)  ->
164 164
       pp_value_suffix self var_type q pp_value fmt v
165 165
    | _               , Fun (n, vl)   ->
166
       pp_basic_lib_fun n (pp_value_suffix self var_type loop_vars pp_value) fmt vl
166
       pp_basic_lib_fun (Types.is_int_type value.value_type) n (pp_value_suffix self var_type loop_vars pp_value) fmt vl
167 167
    | _               , Access (v, i) ->
168 168
       let var_type = Type_predef.type_array (Dimension.mkdim_var ()) var_type in
169 169
       pp_value_suffix self var_type ((Dimension.mkdim_var (), LAcc i) :: loop_vars) pp_value fmt v

Also available in: Unified diff