Project

General

Profile

« Previous | Next » 

Revision ea8f51ae

Added by Pierre-Loïc Garoche about 6 years ago

Basic library printers moved into backend specific printer files

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
       Basic_library.pp_c n (pp_value_suffix self var_type loop_vars pp_value) fmt vl
166
       pp_basic_lib_fun 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