Project

General

Profile

« Previous | Next » 

Revision 9c1ed3ad

Added by Arnaud Dieumegard over 5 years ago

PP order for components and packages

View differences:

src/backends/VHDL/mini_vhdl_ast_pp.ml
128 128
      fun fmt  ->
129 129
        fun x  ->
130 130
          Format.fprintf fmt "@[<v>";
131
            ((fun x  ->
132
                ignore
133
                  (List.fold_left
134
                     (fun sep  ->
135
                        fun x  ->
136
                          if sep then Format.fprintf fmt "@;";
137
                          ((__0 ()) fmt) x;
138
                          true) false x))) x.components;
139 131
           ((fun x  ->
140 132
               ignore
141 133
                 (List.fold_left
......
145 137
                         Format.fprintf fmt "package ";
146 138
                         ((__1 ()) fmt) x;
147 139
                         true) false x))) x.packages;
140
            (match x.components with
141
            | [] -> ()
142
            | _ ->
143
                Format.fprintf fmt "@;";
144
                ((fun x  ->
145
                ignore
146
                  (List.fold_left
147
                     (fun sep  ->
148
                        fun x  ->
149
                          if sep then Format.fprintf fmt "@;";
150
                          ((__0 ()) fmt) x;
151
                          true) false x))) x.components);
148 152
           Format.fprintf fmt "@]")
149 153
    [@ocaml.warning "-A"])
150 154

  

Also available in: Unified diff