diff options
| author | gingold | 2006-06-16 18:41:15 +0000 |
|---|---|---|
| committer | gingold | 2006-06-16 18:41:15 +0000 |
| commit | a8db752954f060217f21417bd98077a215fab971 (patch) | |
| tree | d1a786459661d992376bb583423f790bb1cf8f38 /translate/grt/grt-rtis_addr.adb | |
| parent | 549cfe1c332be3633121dfd6d29b98afc24d2650 (diff) | |
| download | ghdl-a8db752954f060217f21417bd98077a215fab971.tar.gz ghdl-a8db752954f060217f21417bd98077a215fab971.tar.bz2 ghdl-a8db752954f060217f21417bd98077a215fab971.zip | |
bug fixes
Diffstat (limited to 'translate/grt/grt-rtis_addr.adb')
| -rw-r--r-- | translate/grt/grt-rtis_addr.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/translate/grt/grt-rtis_addr.adb b/translate/grt/grt-rtis_addr.adb index 4f24fe7..64273b3 100644 --- a/translate/grt/grt-rtis_addr.adb +++ b/translate/grt/grt-rtis_addr.adb @@ -231,6 +231,10 @@ package body Grt.Rtis_Addr is Align (Ghdl_Range_E8'Alignment); Res (I) := To_Ghdl_Range_Ptr (Bounds); Update (Ghdl_Range_E8'Size); + when Ghdl_Rtik_Type_E32 => + Align (Ghdl_Range_E32'Alignment); + Res (I) := To_Ghdl_Range_Ptr (Bounds); + Update (Ghdl_Range_E32'Size); when others => -- Bounds are not known anymore. Bounds := Null_Address; @@ -249,6 +253,7 @@ package body Grt.Rtis_Addr is return To_Ghdl_Rti_Access (To_Ghdl_Rtin_Subtype_Array_Acc (Atype).Basetype); when Ghdl_Rtik_Type_E8 + | Ghdl_Rtik_Type_E32 | Ghdl_Rtik_Type_B2 => return Atype; when others => |