diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:29:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:29:20 +0000 |
| commit | 498f964b79d6a5830bb41125423df37900fd0f81 (patch) | |
| tree | defb84df2af89396c0b0e9e24f0de9b74e6f261f /gcc/ada/s-stratt.ads | |
| parent | 3d572c5af04d49cb6315182f363a1f8911cf06fd (diff) | |
| download | gcc-498f964b79d6a5830bb41125423df37900fd0f81.tar.gz | |
2007-04-06 Robert Dewar <dewar@adacore.com>
Arnaud Charlet <charlet@adacore.com>
* a-diroro.ads: Inserted the pragma Unimplemented_Unit
* bindgen.adb (Gen_Output_File_Ada): Generate pragma Ada_95 at start
of files
Add mention of -Sev (set initialize_scalars option from environment
variable at run time) in gnatbind usage message.
* elists.ads, elists.adb: (Append_Unique_Elmt): New procedure
* fname-uf.ads: Minor comment fix
* osint.ads: Change pragma Elaborate to Elaborate_All
* par-load.adb: Add documentation.
* sem_cat.ads, sem_cat.adb: Minor code reorganization
* s-parint.ads (RCI_Locator) : Add 'Version' generic formal
* s-secsta.ads: Extra comments
* s-soflin.ads: Minor comment fixes
* s-stratt.ads (Block_Stream_Ops_OK): Removed.
* s-wchcon.ads: Minor comment addition
* treepr.adb: Minor change in message
(Print_Name,Print_Node): Make these debug printouts more robust: print
"no such..." instead of crashing on bad input.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123606 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-stratt.ads')
| -rw-r--r-- | gcc/ada/s-stratt.ads | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/gcc/ada/s-stratt.ads b/gcc/ada/s-stratt.ads index e0e9b0f5c6d..e1b5960d84e 100644 --- a/gcc/ada/s-stratt.ads +++ b/gcc/ada/s-stratt.ads @@ -155,28 +155,6 @@ package System.Stream_Attributes is procedure W_U (Stream : not null access RST; Item : UST.Unsigned); procedure W_WC (Stream : not null access RST; Item : Wide_Character); - ---------------------------- - -- Composite Input/Output -- - ---------------------------- - - -- The following Boolean constant is defined and set to True only if the - -- stream representation of a series of elementary items of the same - -- type (one of the types handled by the above procedures) has the same - -- representation as an array of such items in memory. This allows such - -- a series of items to be read or written as a block, instead of - -- element by element. - - -- If the stream representation does not have this property for all the - -- above types, then this constant can be omitted or set to False, - -- and the front end will generate element-by-element operations. - - -- This interface assumes that a Stream_Element has the same size as - -- a Storage_Unit. If that is not the case, then this flag should - -- also be omitted (or set to False). - - Block_Stream_Ops_OK : constant Boolean := True; - -- Set to False if block stream operations not permitted - private pragma Inline (I_AD); pragma Inline (I_AS); |