diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-04-12 06:31:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-04-12 06:52:38 +0200 |
| commit | 3495e979361d3464073a2cf4acf5a249943d5f23 (patch) | |
| tree | da02383f60d7fa82a3811019757c1348708fbdb7 /src/vhdl/translate/trans-chap2.ads | |
| parent | a8051788b6596abb1e59f605fa0bc5a5b37c1b61 (diff) | |
| download | ghdl-3495e979361d3464073a2cf4acf5a249943d5f23.tar.gz ghdl-3495e979361d3464073a2cf4acf5a249943d5f23.tar.bz2 ghdl-3495e979361d3464073a2cf4acf5a249943d5f23.zip | |
translate: refactoring for package units
Diffstat (limited to 'src/vhdl/translate/trans-chap2.ads')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.ads | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/src/vhdl/translate/trans-chap2.ads b/src/vhdl/translate/trans-chap2.ads index a628b3133..0edd3201f 100644 --- a/src/vhdl/translate/trans-chap2.ads +++ b/src/vhdl/translate/trans-chap2.ads @@ -29,15 +29,20 @@ package Trans.Chap2 is -- overload number if any. procedure Push_Subprg_Identifier (Spec : Iir; Mark : out Id_Mark_Type); + -- Package declaration, body and instantiation when they are design units. + procedure Translate_Package_Declaration_Unit + (Decl : Iir_Package_Declaration); + procedure Translate_Package_Body_Unit (Bod : Iir_Package_Body); + procedure Translate_Package_Instantiation_Declaration_Unit (Inst : Iir); + procedure Elab_Package_Unit_Without_Body (Spec : Iir); + + -- For nested packages. procedure Translate_Package_Declaration (Decl : Iir_Package_Declaration); procedure Translate_Package_Body (Bod : Iir_Package_Body); procedure Translate_Package_Instantiation_Declaration (Inst : Iir); - procedure Elab_Package_Declaration (Spec : Iir); procedure Elab_Package_Body (Spec : Iir_Package_Declaration; Bod : Iir); - procedure Elab_Package_Instantiation_Declaration (Inst : Iir); - procedure Elab_Package_Unit_Without_Body (Spec : Iir); -- Add info for an interface_package_declaration or a -- package_instantiation_declaration |