diff options
Diffstat (limited to 'src/grt/grt-vcd.adb')
| -rw-r--r-- | src/grt/grt-vcd.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb index 6722f2a75..aab295555 100644 --- a/src/grt/grt-vcd.adb +++ b/src/grt/grt-vcd.adb @@ -416,7 +416,8 @@ package body Grt.Vcd is end case; when VhpiSigDeclK => Val := Vcd_Effective; - when VhpiGenericDeclK => + when VhpiGenericDeclK + | VhpiConstDeclK => Val := Vcd_Variable; when others => Info := (Vtype => Vcd_Bad, |