Revision d4c98bae
Added by Arnaud Dieumegard over 6 years ago
src/backends/VHDL/vhdl_ast_map.ml | ||
---|---|---|
481 | 481 |
{ name; generics; ports; declaration; stmts } |
482 | 482 |
|
483 | 483 |
method vhdl_package_t : vhdl_package_t -> vhdl_package_t= |
484 |
fun { name; shared_defs; shared_decls } -> |
|
484 |
fun { name; shared_defs; shared_decls; shared_uses } ->
|
|
485 | 485 |
let name = self#vhdl_name_t name in |
486 | 486 |
let shared_defs = self#list self#vhdl_definition_t shared_defs in |
487 | 487 |
let shared_decls = self#list self#vhdl_declaration_t shared_decls in |
488 |
{ name; shared_defs; shared_decls } |
|
488 |
let shared_uses = self#list self#vhdl_load_t shared_uses in |
|
489 |
{ name; shared_defs; shared_decls; shared_uses } |
|
489 | 490 |
|
490 | 491 |
method vhdl_load_t : vhdl_load_t -> vhdl_load_t= |
491 | 492 |
fun x -> |
Also available in: Unified diff
Use clauses in package definition