From 498f964b79d6a5830bb41125423df37900fd0f81 Mon Sep 17 00:00:00 2001 From: charlet Date: Fri, 6 Apr 2007 09:29:20 +0000 Subject: 2007-04-06 Robert Dewar Arnaud Charlet * 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 --- gcc/ada/s-stratt.ads | 22 ---------------------- 1 file changed, 22 deletions(-) (limited to 'gcc/ada/s-stratt.ads') 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); -- cgit v1.2.1