diff options
Diffstat (limited to 'src/vhdl/iirs_utils.adb')
| -rw-r--r-- | src/vhdl/iirs_utils.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/vhdl/iirs_utils.adb b/src/vhdl/iirs_utils.adb index 14dc0a2c4..a74e9380b 100644 --- a/src/vhdl/iirs_utils.adb +++ b/src/vhdl/iirs_utils.adb @@ -1258,6 +1258,11 @@ package body Iirs_Utils is end case; end Get_Entity_From_Entity_Aspect; + function Is_Nested_Package (Pkg : Iir) return Boolean is + begin + return Get_Kind (Get_Parent (Pkg)) /= Iir_Kind_Design_Unit; + end Is_Nested_Package; + -- LRM08 4.7 Package declarations -- If the package header is empty, the package declared by a package -- declaration is called a simple package. |