diff options
Diffstat (limited to 'src/grt/grt-rtis_utils.adb')
| -rw-r--r-- | src/grt/grt-rtis_utils.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-rtis_utils.adb b/src/grt/grt-rtis_utils.adb index ad9d33563..60266c0f5 100644 --- a/src/grt/grt-rtis_utils.adb +++ b/src/grt/grt-rtis_utils.adb @@ -367,7 +367,7 @@ package body Grt.Rtis_Utils is Pos_To_Vstring (Name, Base_Type, Rng, I - 1); if Index = Last_Index then -- FIXME: not always needed. - Bounds := Array_Layout_To_Bounds (Cur_Bounds); + Bounds := Array_Layout_To_Element (Cur_Bounds, El_Rti); Append (Name, ')'); Handle_Any (El_Rti); else |