diff options
| author | Bob Duff <duff@adacore.com> | 2020-07-07 14:36:50 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-10-19 05:53:38 -0400 |
| commit | ec28faefe1fed756e3a4daee73533984d569b570 (patch) | |
| tree | e4ef36aed7d604591a6717c92d448c2bb956e57c /gcc | |
| parent | b6bcca6dc18a778b84b1d9ab8d03b257f2340efc (diff) | |
| download | gcc-ec28faefe1fed756e3a4daee73533984d569b570.zip gcc-ec28faefe1fed756e3a4daee73533984d569b570.tar.gz gcc-ec28faefe1fed756e3a4daee73533984d569b570.tar.bz2 | |
[Ada] Ada2020: AI12-0304 Put_Image attrs of lang-def types
gcc/ada/
* libgnat/a-coinve.adb, libgnat/a-cidlli.adb (Put_Image): Call
Iterate.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/a-cidlli.adb | 13 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-coinve.adb | 13 |
2 files changed, 16 insertions, 10 deletions
diff --git a/gcc/ada/libgnat/a-cidlli.adb b/gcc/ada/libgnat/a-cidlli.adb index ea962c3..2928606 100644 --- a/gcc/ada/libgnat/a-cidlli.adb +++ b/gcc/ada/libgnat/a-cidlli.adb @@ -1307,19 +1307,22 @@ is is First_Time : Boolean := True; use System.Put_Images; - begin - Array_Before (S); - for X of V loop + procedure Put_Elem (Position : Cursor); + procedure Put_Elem (Position : Cursor) is + begin if First_Time then First_Time := False; else Simple_Array_Between (S); end if; - Element_Type'Put_Image (S, X); - end loop; + Element_Type'Put_Image (S, Element (Position)); + end Put_Elem; + begin + Array_Before (S); + Iterate (V, Put_Elem'Access); Array_After (S); end Put_Image; diff --git a/gcc/ada/libgnat/a-coinve.adb b/gcc/ada/libgnat/a-coinve.adb index 5999a2c..48e81f1 100644 --- a/gcc/ada/libgnat/a-coinve.adb +++ b/gcc/ada/libgnat/a-coinve.adb @@ -2659,19 +2659,22 @@ is is First_Time : Boolean := True; use System.Put_Images; - begin - Array_Before (S); - for X of V loop + procedure Put_Elem (Position : Cursor); + procedure Put_Elem (Position : Cursor) is + begin if First_Time then First_Time := False; else Simple_Array_Between (S); end if; - Element_Type'Put_Image (S, X); - end loop; + Element_Type'Put_Image (S, Element (Position)); + end Put_Elem; + begin + Array_Before (S); + Iterate (V, Put_Elem'Access); Array_After (S); end Put_Image; |