Project

General

Profile

« Previous | Next » 

Revision 20d354f4

Added by Arnaud Dieumegard over 3 years ago

Update of types fields names

View differences:

src/backends/VHDL/mini_vhdl_ast_pp.ml
551 551
      fun fmt  ->
552 552
        fun x  ->
553 553
          Format.fprintf fmt "@[<v 2>";
554
          ((__0 ()) fmt) x.name;
554
          ((__0 ()) fmt) x.ci_name;
555 555
          Format.fprintf fmt "__";
556
          ((__0 ()) fmt) x.archi.name;
556
          ((__0 ()) fmt) x.archi.a_name;
557 557
          Format.fprintf fmt "__";
558
          ((__0 ()) fmt) x.entity.name;
558
          ((__0 ()) fmt) x.entity.e_name;
559 559
          (match x.generic_map with
560 560
          | [] -> Format.fprintf fmt "";
561 561
          | _ ->
......
622 622
                              true) false x))) x.active_sigs;
623 623
                 Format.fprintf fmt ")");
624 624
          Format.fprintf fmt " is";
625
          (match x.declarations with
625
          (match x.p_declarations with
626 626
          | [] -> Format.fprintf fmt "";
627 627
          | _ -> 
628 628
              (Format.fprintf fmt "@;";
......
634 634
                      if sep then Format.fprintf fmt "@;";
635 635
                        ((__1 ()) fmt) x;
636 636
                        Format.fprintf fmt ";";
637
                        true) false x))) x.declarations));
637
                        true) false x))) x.p_declarations));
638 638
          Format.fprintf fmt "@]@;@[<v 2>begin@;";
639 639
          ((fun x  ->
640 640
               ignore
......
644 644
                         if sep then Format.fprintf fmt "@;";
645 645
                         ((__3 ()) fmt) x;
646 646
                         Format.fprintf fmt ";";
647
                         true) false x);)) x.body;
647
                         true) false x);)) x.p_body;
648 648
          Format.fprintf fmt "@]@;end process;")
649 649
    [@ocaml.warning "-A"])
650 650

  
......
689 689
        fun x  ->
690 690
          Format.fprintf fmt "@[<2>{ ";
691 691
          ((((Format.fprintf fmt "@[%s =@ " "name";
692
              ((__0 ()) fmt) x.name;
692
              ((__0 ()) fmt) x.p_name;
693 693
              Format.fprintf fmt "@]");
694 694
             Format.fprintf fmt ";@ ";
695 695
             Format.fprintf fmt "@[%s =@ " "shared_defs";
......
807 807
                    if sep then Format.fprintf fmt ";@;";
808 808
                      ((__3 ()) fmt) x;
809 809
                      true) false x))) x.contexts);
810
          (match x.declarations with
810
          (match x.c_declarations with
811 811
          | [] -> ()
812 812
          | _ ->
813 813
            Format.fprintf fmt "@;";
......
819 819
                    if sep then Format.fprintf fmt "@;";
820 820
                      ((__4 ()) fmt) x;
821 821
                      Format.fprintf fmt ";";
822
                      true) false x))) x.declarations);
822
                      true) false x))) x.c_declarations);
823 823
          (match x.definitions with
824 824
          | [] -> ()
825 825
          | _ ->
......
834 834
                      Format.fprintf fmt ";";
835 835
                      true) false x))) x.definitions);
836 836
          Format.fprintf fmt "@]@;@[<v 2>begin";
837
          (match x.body with
837
          (match x.c_body with
838 838
          | [] -> ()
839 839
          | _ ->
840 840
            Format.fprintf fmt "@;";
......
845 845
                  fun x  ->
846 846
                    if sep then Format.fprintf fmt "@;";
847 847
                      ((__6 ()) fmt) x;
848
                         true) false x))) x.body);
848
                         true) false x))) x.c_body);
849 849
           Format.fprintf fmt "@]@;end;")
850 850
    [@ocaml.warning "-A"])
851 851

  

Also available in: Unified diff