diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-12-05 06:07:39 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-12-05 06:07:39 +0100 |
commit | 23d12bfb244b6271b78f21ff938c8406aec0c0d8 (patch) | |
tree | af405a7359d2e9b852fc86e93e2a564d390423b8 /src/grt/grt-avhpi.adb | |
parent | 94fc2d91a57a3bbd89798c2c62cb0bd588fb21ed (diff) | |
download | ghdl-23d12bfb244b6271b78f21ff938c8406aec0c0d8.tar.gz ghdl-23d12bfb244b6271b78f21ff938c8406aec0c0d8.tar.bz2 ghdl-23d12bfb244b6271b78f21ff938c8406aec0c0d8.zip |
fst: dump type of signals.
Diffstat (limited to 'src/grt/grt-avhpi.adb')
-rw-r--r-- | src/grt/grt-avhpi.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/src/grt/grt-avhpi.adb b/src/grt/grt-avhpi.adb index b935fd9a3..690a6bb8f 100644 --- a/src/grt/grt-avhpi.adb +++ b/src/grt/grt-avhpi.adb @@ -380,6 +380,11 @@ package body Grt.Avhpi is Res := (Kind => VhpiPhysTypeDeclK, Ctxt => Ctxt, Atype => Rti); + when Ghdl_Rtik_Type_I32 + | Ghdl_Rtik_Type_I64 => + Res := (Kind => VhpiIntTypeDeclK, + Ctxt => Ctxt, + Atype => Rti); when Ghdl_Rtik_Subtype_Scalar => Res := (Kind => VhpiSubtypeDeclK, Ctxt => Ctxt, @@ -569,6 +574,9 @@ package body Grt.Avhpi is procedure Add (Str : Ghdl_C_String) is begin + if Str = null then + return; + end if; for I in Str'Range loop exit when Str (I) = NUL; Add (Str (I)); @@ -582,6 +590,8 @@ package body Grt.Avhpi is case Obj.Kind is when VhpiEnumTypeDeclK => Add (To_Ghdl_Rtin_Type_Enum_Acc (Obj.Atype).Name); + when VhpiIntTypeDeclK => + Add (To_Ghdl_Rtin_Type_Scalar_Acc (Obj.Atype).Name); when VhpiSubtypeDeclK => Add (To_Ghdl_Rtin_Subtype_Scalar_Acc (Obj.Atype).Name); when VhpiArrayTypeDeclK => @@ -1107,7 +1117,8 @@ package body Grt.Avhpi is when VhpiSubtypeIndicK | VhpiSubtypeDeclK | VhpiArrayTypeDeclK - | VhpiPhysTypeDeclK => + | VhpiPhysTypeDeclK + | VhpiIntTypeDeclK => return Hdl1.Atype = Hdl2.Atype; when others => -- FIXME: todo |