Project

General

Profile

Revision 27332198 src/backends/VHDL/vhdl_ast_map.ml

View differences:

src/backends/VHDL/vhdl_ast_map.ml
27 27
let _ = fun (_ : vhdl_process_t)  -> () 
28 28
let _ = fun (_ : vhdl_selected_signal_t)  -> () 
29 29
let _ = fun (_ : vhdl_port_mode_t)  -> () 
30
let _ = fun (_ : vhdl_component_instantiation_t)  -> ()
30 31
let _ = fun (_ : vhdl_concurrent_stmt_t)  -> () 
31 32
let _ = fun (_ : vhdl_port_t)  -> () 
32 33
let _ = fun (_ : vhdl_entity_t)  -> () 
......
65 66
    method virtual  vhdl_subprogram_spec_t : vhdl_subprogram_spec_t -> vhdl_subprogram_spec_t
66 67
    method virtual  vhdl_discrete_range_t : vhdl_discrete_range_t -> vhdl_discrete_range_t
67 68
    method virtual  vhdl_parameter_t : vhdl_parameter_t -> vhdl_parameter_t
69
    method virtual  vhdl_component_instantiation_t : vhdl_component_instantiation_t -> vhdl_component_instantiation_t
68 70
    method virtual  vhdl_concurrent_stmt_t : vhdl_concurrent_stmt_t -> vhdl_concurrent_stmt_t
69 71
    method virtual  vhdl_declaration_t : vhdl_declaration_t -> vhdl_declaration_t
70 72
    method virtual  vhdl_architecture_t : vhdl_architecture_t -> vhdl_architecture_t
......
398 400
    method vhdl_port_mode_t : vhdl_port_mode_t -> vhdl_port_mode_t=
399 401
      fun x  -> x
400 402

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

  
401 413
    method vhdl_concurrent_stmt_t :
402 414
      vhdl_concurrent_stmt_t -> vhdl_concurrent_stmt_t=
403 415
      fun x  ->
......
405 417
        | SigAssign a -> let a = self#vhdl_conditional_signal_t a  in SigAssign a
406 418
        | Process a -> let a = self#vhdl_process_t a  in Process a
407 419
        | SelectedSig a -> let a = self#vhdl_selected_signal_t a  in SelectedSig a
420
        | ComponentInst a -> let a = self#vhdl_component_instantiation_t a  in ComponentInst a 
408 421

  
409 422
    method vhdl_port_t : vhdl_port_t -> vhdl_port_t=
410 423
      fun { names; mode; typ; expr }  ->

Also available in: Unified diff