diff options
| author | gingold | 2008-06-02 04:40:09 +0000 |
|---|---|---|
| committer | gingold | 2008-06-02 04:40:09 +0000 |
| commit | 205582d0c16c41843976dd9bff9cf9a8ea0557df (patch) | |
| tree | 65fea3caa09849b92aab8c3276fa78f2d642f58b /translate/grt/grt-waves.adb | |
| parent | 55b1d510131724ec767a7a1eef0665c6bf86bedc (diff) | |
| download | ghdl-205582d0c16c41843976dd9bff9cf9a8ea0557df.tar.gz ghdl-205582d0c16c41843976dd9bff9cf9a8ea0557df.tar.bz2 ghdl-205582d0c16c41843976dd9bff9cf9a8ea0557df.zip | |
Improve SDF annotator
Diffstat (limited to 'translate/grt/grt-waves.adb')
| -rw-r--r-- | translate/grt/grt-waves.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/translate/grt/grt-waves.adb b/translate/grt/grt-waves.adb index fed4086..c2c0138 100644 --- a/translate/grt/grt-waves.adb +++ b/translate/grt/grt-waves.adb @@ -62,7 +62,7 @@ package body Grt.Waves is Ghw_Hie_Port_Buffer : constant Unsigned_8 := 20; -- Port Ghw_Hie_Port_Linkage : constant Unsigned_8 := 21; -- Port - -- Return TRUE if OPT is an option for VCD. + -- Return TRUE if OPT is an option for wave. function Wave_Option (Opt : String) return Boolean is F : Natural := Opt'First; @@ -842,7 +842,7 @@ package body Grt.Waves is procedure Write_Hierarchy_El (Decl : VhpiHandleT) is - Mode2hie : constant array (VhpiModeP) of Unsigned_8 := + Mode2hie : constant array (VhpiModeT) of Unsigned_8 := (VhpiErrorMode => Ghw_Hie_Signal, VhpiInMode => Ghw_Hie_Port_In, VhpiOutMode => Ghw_Hie_Port_Out, |