diff options
Diffstat (limited to 'src/grt/grt-fst.adb')
-rw-r--r-- | src/grt/grt-fst.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-fst.adb b/src/grt/grt-fst.adb index 7e912fe80..29bc5acad 100644 --- a/src/grt/grt-fst.adb +++ b/src/grt/grt-fst.adb @@ -510,6 +510,11 @@ package body Grt.Fst is end loop; -- Extract sub-scopes. + if Vhpi_Get_Kind (Inst) = VhpiPackInstK then + -- Except for packages + return; + end if; + Vhpi_Iterator (VhpiInternalRegions, Inst, Decl_It, Error); if Error /= AvhpiErrorOk then Avhpi_Error (Error); |