diff options
| -rw-r--r-- | gcc/ada/s-ststop.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/s-ststop.adb b/gcc/ada/s-ststop.adb index 7dca75f..12dcdce 100644 --- a/gcc/ada/s-ststop.adb +++ b/gcc/ada/s-ststop.adb @@ -98,8 +98,12 @@ package body System.Strings.Stream_Ops is -- Canonical_Streams is present. A value of zero indicates whether any -- stream-related optimizations are enabled, while a value of one -- indicates a disabled status. + -- What is all this rubbish about C flags for a global config pragma??? Canonical_Streams : constant Boolean := Flag = 1; + -- This seems dubious, surely it should be (Flag /= 0) for normal + -- C semantics. Why not just import as a pragma Convention C Boolean + -- anyway, avoiding the need for junk flag ??? -- Block IO is used when the low level can support block IO, the size -- of the character type is a multiple of the stream element type and |