aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/libgnat/s-stratt.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/libgnat/s-stratt.ads')
-rw-r--r--gcc/ada/libgnat/s-stratt.ads7
1 files changed, 2 insertions, 5 deletions
diff --git a/gcc/ada/libgnat/s-stratt.ads b/gcc/ada/libgnat/s-stratt.ads
index 7336949..c8c453a 100644
--- a/gcc/ada/libgnat/s-stratt.ads
+++ b/gcc/ada/libgnat/s-stratt.ads
@@ -163,11 +163,8 @@ package System.Stream_Attributes is
procedure W_WWC (Stream : not null access RST; Item : Wide_Wide_Character);
function Block_IO_OK return Boolean;
- -- Package System.Stream_Attributes has several bodies - the default one
- -- distributed with GNAT, and s-stratt__xdr.adb, which is based on the XDR
- -- standard. Both bodies share the same spec. The role of this function is
- -- to indicate whether the current version of System.Stream_Attributes
- -- supports block IO. See System.Strings.Stream_Ops (s-ststop) for details.
+ -- Indicate whether the current setting supports block IO. See
+ -- System.Strings.Stream_Ops (s-ststop) for details on block IO.
private
pragma Inline (I_AD);