diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap2.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap2.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 93daa205f..ac49a96da 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -35,6 +35,8 @@ package body Trans.Chap2 is use Trans.Subprgs; use Trans.Helpers; + procedure Elab_Package (Spec : Iir; Header : Iir); + type Name_String_Xlat_Array is array (Name_Id range <>) of String (1 .. 4); -- Ortho function names are only composed of [A-Za-z0-9_]. For VHDL @@ -1055,6 +1057,11 @@ package body Trans.Chap2 is end if; end Elab_Package; + procedure Elab_Package_Declaration (Spec : Iir) is + begin + Elab_Package (Spec, Get_Package_Header (Spec)); + end Elab_Package_Declaration; + procedure Elab_Package_Body (Spec : Iir_Package_Declaration; Bod : Iir) is -- SPEC can be a package declaration or a package instantiation. |