diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-06-16 21:13:28 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-06-17 20:21:32 +0200 |
commit | 9f5bd757977aeb0f90466decc3b27f159ca612a4 (patch) | |
tree | 3bed462ba1d4e84d693026b06dd6a25712266ee1 /src/grt/grt-vpi.adb | |
parent | 1e75c3ba423254a85eb990f235d429b30978424a (diff) | |
download | ghdl-9f5bd757977aeb0f90466decc3b27f159ca612a4.tar.gz ghdl-9f5bd757977aeb0f90466decc3b27f159ca612a4.tar.bz2 ghdl-9f5bd757977aeb0f90466decc3b27f159ca612a4.zip |
fst: dump enumerations.
Diffstat (limited to 'src/grt/grt-vpi.adb')
-rw-r--r-- | src/grt/grt-vpi.adb | 25 |
1 files changed, 11 insertions, 14 deletions
diff --git a/src/grt/grt-vpi.adb b/src/grt/grt-vpi.adb index 6cc34a1c9..90c75ef93 100644 --- a/src/grt/grt-vpi.adb +++ b/src/grt/grt-vpi.adb @@ -398,7 +398,8 @@ package body Grt.Vpi is | Vcd_Integer32 | Vcd_Float64 | Vcd_Bit - | Vcd_Stdlogic => + | Vcd_Stdlogic + | Vcd_Enum8 => return False; when Vcd_Bitvector | Vcd_Stdlogic_Vector => @@ -739,11 +740,7 @@ package body Grt.Vpi is return null; end if; - if Info.Irange = null then - Len := 1; - else - Len := Info.Irange.I32.Len; - end if; + Len := Get_Wire_Length (Info); Tmpstring3idx := 1; -- reset string buffer @@ -751,6 +748,7 @@ package body Grt.Vpi is when Vcd_Effective => case Info.Kind is when Vcd_Bad + | Vcd_Enum8 | Vcd_Integer32 | Vcd_Float64 => return null; @@ -769,6 +767,7 @@ package body Grt.Vpi is when Vcd_Driving => case Info.Kind is when Vcd_Bad + | Vcd_Enum8 | Vcd_Integer32 | Vcd_Float64 => return null; @@ -900,6 +899,8 @@ package body Grt.Vpi is end case; end; end loop; + when Vcd_Enum8 => + null; when Vcd_Integer32 | Vcd_Float64 => null; @@ -1012,14 +1013,10 @@ package body Grt.Vpi is return null; end if; - if Info.Irange = null then - Len := 1; - else - Len := Info.Irange.I32.Len; - if Len = 0 then - -- No signal. - return null; - end if; + Len := Get_Wire_Length (Info); + if Len = 0 then + -- No signal. + return null; end if; -- Step 1: convert vpi object to internal format. |