Project

General

Profile

Revision 77bdbec5 src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
474 474
        | Use a -> let a = self#list self#vhdl_name_t a  in Use a
475 475

  
476 476
    method vhdl_architecture_t : vhdl_architecture_t -> vhdl_architecture_t=
477
      fun { name; entity; declarations; body }  ->
477
      fun { name; entity; use_clauses; declarations; body }  ->
478 478
        let name = self#vhdl_name_t name  in
479 479
        let entity = self#vhdl_name_t entity  in
480
        let use_clauses = self#list self#vhdl_load_t use_clauses  in
480 481
        let declarations = self#list self#vhdl_declaration_t declarations  in
481 482
        let body = self#list self#vhdl_concurrent_stmt_t body  in
482
        { name; entity; declarations; body }
483
        { name; entity; use_clauses; declarations; body }
483 484

  
484 485
    method vhdl_configuration_t :
485 486
      vhdl_configuration_t -> vhdl_configuration_t= self#unit

Also available in: Unified diff