Project

General

Profile

Revision fc44085e src/backends/VHDL/vhdl_ast_deriving.ml

View differences:

src/backends/VHDL/vhdl_ast_deriving.ml
3347 3347
            (match aassocs with
3348 3348
            | [] -> Format.fprintf fmt "";
3349 3349
            | _ ->
3350
               Format.fprintf fmt "(@[<v>";
3350 3351
               ((fun x  ->
3351
                Format.fprintf fmt "(";
3352 3352
                ignore
3353 3353
                  (List.fold_left
3354 3354
                     (fun sep  ->
3355 3355
                        fun x  ->
3356 3356
                          if sep then Format.fprintf fmt ",@ ";
3357 3357
                          ((__20 ()) fmt) x;
3358
                          true) false x);
3359
              Format.fprintf fmt ")")) aassocs);
3358
                          true) false x))) aassocs;
3359
               Format.fprintf fmt "@])");
3360 3360
        | Wait  -> Format.pp_print_string fmt "wait"
3361 3361
        | Null { label = alabel } ->
3362 3362
            (match alabel with

Also available in: Unified diff