diff options
Diffstat (limited to 'src/grt')
| -rw-r--r-- | src/grt/grt-fst.adb | 5 | ||||
| -rw-r--r-- | src/grt/grt-vcd.adb | 4 |
2 files changed, 9 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); diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb index 4795a1879..95a724c76 100644 --- a/src/grt/grt-vcd.adb +++ b/src/grt/grt-vcd.adb @@ -568,6 +568,10 @@ package body Grt.Vcd 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); |