diff options
Diffstat (limited to 'src/grt/grt-disp_rti.adb')
| -rw-r--r-- | src/grt/grt-disp_rti.adb | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb index 045ac6fb5..38f4d34f7 100644 --- a/src/grt/grt-disp_rti.adb +++ b/src/grt/grt-disp_rti.adb @@ -230,9 +230,7 @@ package body Grt.Disp_Rti is Put (Stream, ", "); end if; if Index = Last_Idx then - -- Humm, not always an array, and BOUNDS may not be followed - -- by subelement bounds. - Bounds2 := Array_Layout_To_Bounds (Bounds); + Bounds2 := Array_Layout_To_Element (Bounds, El_Rti); Disp_Value (Stream, El_Rti, Ctxt, Obj, Bounds2, Is_Sig); else Bounds2 := Bounds; |