diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-09-03 14:56:22 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-09-03 14:57:28 +0200 |
commit | c553937361b0b9f20b0445b75a296559911a3e53 (patch) | |
tree | c30823e0ae68a1107565387d4581e3059cb95194 /src/grt/grt-vcd.adb | |
parent | d4ba25fa7fb5e7e110c5dbf567bd840e845ba834 (diff) | |
download | ghdl-c553937361b0b9f20b0445b75a296559911a3e53.tar.gz ghdl-c553937361b0b9f20b0445b75a296559911a3e53.tar.bz2 ghdl-c553937361b0b9f20b0445b75a296559911a3e53.zip |
vcd,fst: avoid spurious error message for packages.
Diffstat (limited to 'src/grt/grt-vcd.adb')
-rw-r--r-- | src/grt/grt-vcd.adb | 4 |
1 files changed, 4 insertions, 0 deletions
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); |