diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-01 09:37:40 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-01 09:37:40 +0200 |
| commit | a49b649fb8bd364696f32549227978f2024110d3 (patch) | |
| tree | a1958085b16cc173319e71794701cdff5a6c5b34 /gcc/ada/s-ststop.adb | |
| parent | a4d4806ff3e19d193b04232ffa7fec8a740aec97 (diff) | |
| download | gcc-a49b649fb8bd364696f32549227978f2024110d3.zip gcc-a49b649fb8bd364696f32549227978f2024110d3.tar.gz gcc-a49b649fb8bd364696f32549227978f2024110d3.tar.bz2 | |
s-ststop.adb: Add some ??? comments
2008-08-01 Robert Dewar <dewar@adacore.com>
* s-ststop.adb: Add some ??? comments
From-SVN: r138456
Diffstat (limited to 'gcc/ada/s-ststop.adb')
| -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 |