diff options
| author | Bob Duff <duff@adacore.com> | 2020-03-30 15:34:28 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2020-06-15 04:04:25 -0400 |
| commit | 6a920eb51077cd465472eabb24a49b3e4ca30e93 (patch) | |
| tree | 1b216d0340468657aafd593d64c028844b310336 /gcc/ada/libgnat | |
| parent | 6349cf36d8bb7fb83f67a7bc27fc67dca73b19dd (diff) | |
| download | gcc-6a920eb51077cd465472eabb24a49b3e4ca30e93.zip gcc-6a920eb51077cd465472eabb24a49b3e4ca30e93.tar.gz gcc-6a920eb51077cd465472eabb24a49b3e4ca30e93.tar.bz2 | |
[Ada] Put_Image: Enable for access-to-subprogram types
2020-06-15 Bob Duff <duff@adacore.com>
gcc/ada/
* exp_put_image.adb, libgnat/s-putima.adb, libgnat/s-putima.ads,
rtsfind.ads: Enable Put_Image if Is_Access_Subprogram_Type (Typ).
Remove comment saying it's disabled in that case. Rename
Put_Image_Access_Prot to be Put_Image_Access_Prot_Subp to
clarify that we're talking about access-to-subprogram, not
access-to-protected-object.
Diffstat (limited to 'gcc/ada/libgnat')
| -rw-r--r-- | gcc/ada/libgnat/s-putima.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/libgnat/s-putima.ads | 3 |
2 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/libgnat/s-putima.adb b/gcc/ada/libgnat/s-putima.adb index d7d530b..1b214bf8 100644 --- a/gcc/ada/libgnat/s-putima.adb +++ b/gcc/ada/libgnat/s-putima.adb @@ -158,10 +158,12 @@ package body System.Put_Images is Thin_Instance (S, X, "access subprogram"); end Put_Image_Access_Subp; - procedure Put_Image_Access_Prot (S : in out Sink'Class; X : Thin_Pointer) is + procedure Put_Image_Access_Prot_Subp + (S : in out Sink'Class; X : Thin_Pointer) + is begin Thin_Instance (S, X, "access protected subprogram"); - end Put_Image_Access_Prot; + end Put_Image_Access_Prot_Subp; procedure Put_Image_String (S : in out Sink'Class; X : String) is begin diff --git a/gcc/ada/libgnat/s-putima.ads b/gcc/ada/libgnat/s-putima.ads index 3015a41..da62930 100644 --- a/gcc/ada/libgnat/s-putima.ads +++ b/gcc/ada/libgnat/s-putima.ads @@ -72,7 +72,8 @@ package System.Put_Images is procedure Put_Image_Access_Subp (S : in out Sink'Class; X : Thin_Pointer); -- For access-to-subprogram types - procedure Put_Image_Access_Prot (S : in out Sink'Class; X : Thin_Pointer); + procedure Put_Image_Access_Prot_Subp + (S : in out Sink'Class; X : Thin_Pointer); -- For access-to-protected-subprogram types procedure Put_Image_String (S : in out Sink'Class; X : String); |