Project

General

Profile

Revision 6cfa0edc src/backends/VHDL/vhdl_ast_pp.ml

View differences:

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