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