Project

General

Profile

Revision 6cfa0edc

View differences:

src/backends/VHDL/mini_vhdl_ast_pp.ml
534 534
        fun x  ->
535 535
          (match x.use_clause with
536 536
          | None -> ();
537
          | Some e -> ((__0 ()) fmt) e; Format.fprintf fmt ";");
537
          | Some e -> ((__0 ()) fmt) e);
538 538
          (match x.declaration with
539 539
          | None -> ();
540 540
          | Some e -> ((__1 ()) fmt) e);
......
730 730
                         Format.fprintf fmt "@;";
731 731
                         if sep then Format.fprintf fmt "";
732 732
                         ((__3 ()) fmt) x;
733
                         Format.fprintf fmt ";";
734 733
                         true) false x))) x.shared_uses;)
735 734
    [@ocaml.warning "-A"])
736 735

  
......
809 808
                  fun x  ->
810 809
                    if sep then Format.fprintf fmt ";@;";
811 810
                    ((__3 ()) fmt) x;
812
                    Format.fprintf fmt ";";
813
                      true) false x))) x.contexts);
811
                      true) false x))) x.contexts; Format.fprintf fmt ";");
814 812
          (match x.c_declarations with
815 813
          | [] -> ()
816 814
          | _ ->
src/backends/VHDL/vhdl_ast_pp.ml
1388 1388
  and __1 () = pp_vhdl_declaration_t
1389 1389
  
1390 1390
  and __0 () = pp_vhdl_load_t
1391
   in
1391
  in
1392 1392
  ((let open! Ppx_deriving_runtime in
1393
      fun fmt  ->
1394
        fun x  ->
1395
          (match x.use_clause with
1396
          | None -> Format.fprintf fmt "";
1397
          | Some e -> ((__0 ()) fmt) e);
1398
          (match x.di_declaration with
1399
          | None -> Format.fprintf fmt "";
1400
          | Some e -> ((__1 ()) fmt) e);
1401
          (match x.di_definition with
1402
          | None -> Format.fprintf fmt "";
1403
          | Some e -> ((__2 ()) fmt) e);)
1404
    [@ocaml.warning "-A"])
1393
     fun fmt  ->
1394
     fun x  ->
1395
       (match x.use_clause with
1396
        | None -> Format.fprintf fmt "";
1397
        | Some e -> ((__0 ()) fmt) e);
1398
       (match x.di_declaration with
1399
        | None -> Format.fprintf fmt "";
1400
        | Some e -> ((__1 ()) fmt) e);
1401
       (match x.di_definition with
1402
        | None -> Format.fprintf fmt "";
1403
        | Some e -> ((__2 ()) fmt) e);)
1404
     [@ocaml.warning "-A"])
1405 1405

  
1406 1406
and show_vhdl_declarative_item_t :
1407 1407
  vhdl_declarative_item_t -> Ppx_deriving_runtime.string =
......
1821 1821
                         Format.fprintf fmt "@;";
1822 1822
                         if sep then Format.fprintf fmt "";
1823 1823
                         ((__3 ()) fmt) x;
1824
                         Format.fprintf fmt ";";
1825 1824
                         true) false x))) x.shared_uses;)
1826 1825
    [@ocaml.warning "-A"])
1827 1826

  

Also available in: Unified diff