FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

s-ststop.adb: Add some ??? comments

Browse source 
2008-08-01  Robert Dewar  <dewar@adacore.com>

	* s-ststop.adb: Add some ??? comments

From-SVN: r138456
This commit is contained in:
Robert Dewar 2008-08-01 09:37:40 +02:00 • committed by Arnaud Charlet
parent a4d4806ff3
commit a49b649fb8
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/s-ststop.adb
View file

@ -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