Project

General

Profile

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

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
          | _ ->

Also available in: Unified diff