Project

General

Profile

« Previous | Next » 

Revision 02440160

Added by Arnaud Dieumegard about 5 years ago

vhdl and mini_vhdl pp: remove empty lines and useless linebreaks in maps

View differences:

src/backends/VHDL/mini_vhdl_ast_pp.ml
559 559 
          (match x.generic_map with
560 560 
          | [] -> Format.fprintf fmt "";
561 561 
          | _ ->
562 
            (Format.fprintf fmt " generic map (@[<v 2>";
562 
            (Format.fprintf fmt " generic map (@[";
563 563 
            ((fun x  ->
564 564 
            ignore
565 565 
            (List.fold_left
566 566 
               (fun sep  ->
567 567 
                 fun x  ->
568 
                   if sep then Format.fprintf fmt ",@,";
568 
                   if sep then Format.fprintf fmt ",@ ";
569 569 
                   ((__3 ()) fmt) x;
570 570 
                   true) false x))) x.generic_map;
571 
            Format.fprintf fmt ")@]@;"));
571 
            Format.fprintf fmt "@])@;"));
572 572 
          (match x.port_map with
573 573 
          | [] -> Format.fprintf fmt ";";
574 574 
          | _ ->
575 
            (Format.fprintf fmt " port map (@[<v 2>";
575 
            (Format.fprintf fmt " port map (@[";
576 576 
            ((fun x  ->
577 577 
            ignore
578 578 
            (List.fold_left
579 579 
               (fun sep  ->
580 580 
                 fun x  ->
581 
                   if sep then Format.fprintf fmt ",@,";
581 
                   if sep then Format.fprintf fmt ",@ ";
582 582 
                   ((__4 ()) fmt) x;
583 583 
                   true) false x))) x.port_map;
584 
            Format.fprintf fmt ")@];"));
584 
            Format.fprintf fmt "@]);"));
585 585 
          Format.fprintf fmt "@]")
586 586 
    [@ocaml.warning "-A"])
587 587 

  		




  ......




  645
  645
  
    
                         ((__3 ()) fmt) x;


  		




  646
  646
  
    
                         Format.fprintf fmt ";";


  		




  647
  647
  
    
                         true) false x);)) x.body;


  		




  648
  
  
    
          Format.fprintf fmt "@]@;end process;@;")


  		




  
  648
  
    
          Format.fprintf fmt "@]@;end process;")


  		




  649
  649
  
    
    [@ocaml.warning "-A"])


  		




  650
  650
  
    

  		




  651
  651
  
    
and show_mini_vhdl_process_t :


  		












Also available in:  Unified diff