Project

General

Profile

Revision 6f9095f6 src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
402 402

  
403 403
    method vhdl_component_instantiation_t :
404 404
      vhdl_component_instantiation_t -> vhdl_component_instantiation_t=
405
      fun { name; inst_unit; generic_map; port_map }  ->
405
      fun { name; inst_unit; archi_name; generic_map; port_map }  ->
406 406
        let name = self#vhdl_name_t name  in
407 407
        let inst_unit = self#vhdl_name_t inst_unit  in
408
        let archi_name = self#option self#vhdl_name_t archi_name  in
408 409
        let generic_map = self#option self#vhdl_assoc_element_t generic_map
409 410
           in
410 411
        let port_map = self#option self#vhdl_assoc_element_t port_map  in
411
        { name; inst_unit; generic_map; port_map }
412
        { name; inst_unit; archi_name; generic_map; port_map }
412 413

  
413 414
    method vhdl_concurrent_stmt_t :
414 415
      vhdl_concurrent_stmt_t -> vhdl_concurrent_stmt_t=

Also available in: Unified diff