Revision 27332198
Added by Arnaud Dieumegard over 6 years ago
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
Added support for component instantiation