diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-13 02:40:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-13 02:40:01 +0100 |
| commit | 86bfd8ac497f4e4a753ddbd9d382b377d876dcbc (patch) | |
| tree | 3035168b395c5f301b8c344c3cd1f881d4c6031c /translate/grt/grt-vcd.adb | |
| parent | eae904baf0e76f48c755e5ae91b1c0eff5729796 (diff) | |
| download | ghdl-86bfd8ac497f4e4a753ddbd9d382b377d876dcbc.tar.gz ghdl-86bfd8ac497f4e4a753ddbd9d382b377d876dcbc.tar.bz2 ghdl-86bfd8ac497f4e4a753ddbd9d382b377d876dcbc.zip | |
Fix bug20312: rewrite of complex types.
Fix crashes in sem_expr when string literals are used in range exprs.
Diffstat (limited to 'translate/grt/grt-vcd.adb')
| -rw-r--r-- | translate/grt/grt-vcd.adb | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/translate/grt/grt-vcd.adb b/translate/grt/grt-vcd.adb index aa7f352ea..b78b417e5 100644 --- a/translate/grt/grt-vcd.adb +++ b/translate/grt/grt-vcd.adb @@ -325,17 +325,6 @@ package body Grt.Vcd is (Loc_To_Addr (St.Common.Depth, St.Bounds, Avhpi_Get_Context (Sig))); end; - when Ghdl_Rtik_Subtype_Array_Ptr => - declare - St : Ghdl_Rtin_Subtype_Array_Acc; - begin - St := To_Ghdl_Rtin_Subtype_Array_Acc (Rti); - Info.Kind := Rti_To_Vcd_Kind (St.Basetype); - Info.Addr := To_Addr_Acc (Sig_Addr).all; - Info.Irange := To_Ghdl_Range_Ptr - (Loc_To_Addr (St.Common.Depth, St.Bounds, - Avhpi_Get_Context (Sig))); - end; when Ghdl_Rtik_Type_Array => declare Uc : Ghdl_Uc_Array_Acc; |