Project

General

Profile

Revision 6f9095f6 src/tools/importer/vhdl_to_lustre.ml

View differences:

src/tools/importer/vhdl_to_lustre.ml
404 404

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

  
415 416
    method vhdl_concurrent_stmt_t :
416 417
      vhdl_concurrent_stmt_t -> vhdl_concurrent_stmt_t=

Also available in: Unified diff