diff options
Diffstat (limited to 'src/kompsos-pretty_print.adb')
| -rw-r--r-- | src/kompsos-pretty_print.adb | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/kompsos-pretty_print.adb b/src/kompsos-pretty_print.adb index 216ceec..2befe6d 100644 --- a/src/kompsos-pretty_print.adb +++ b/src/kompsos-pretty_print.adb @@ -119,9 +119,11 @@ package body Kompsos.Pretty_Print is Marker : State_Component_Access := Item.Ctrl.Actual; begin while Marker /= null loop - SU.Append (Result, Latin.HT & - Image (Marker.Key) & " => " & - Image (Marker.Value) & Latin.LF); + for Index in Valid_Count range Valid_Count'First .. Marker.Valid loop + SU.Append (Result, Latin.HT & + Image (Marker.Data (Index).Key) & " => " & + Image (Marker.Data (Index).Value) & Latin.LF); + end loop; Marker := Marker.Next.Ctrl.Actual; end loop; end; |