From 43e39b42f3afb986f9d56d50706909fd075179ee Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 1 Dec 2009 09:52:51 +0000 Subject: 2009-12-01 Ed Schonberg * einfo.ads: Clarify use of Is_Private_Primitive. * sem_ch6.adb (Analyze_Subprogram_Declaration): An operation is a private primitive operation only if it is declared in the scope of the private controlling type. * exp_ch9.adb (Build_Wrapper_Spec): Build wrappers for private protected operations as well. 2009-12-01 Arnaud Charlet * gnat1drv.adb (Adjust_Global_Switches): Disable front-end optimizations in CodePeer mode, to keep the tree as close to the source code as possible, and also to avoid inconsistencies between trees when using different optimization switches. 2009-12-01 Thomas Quinot * scos.ads: Updated specification of source coverage obligation information. 2009-12-01 Thomas Quinot * g-sercom.ads, g-sercom-mingw.adb, g-sercom-linux.adb, a-ststio.adb, s-commun.adb, s-commun.ads, g-socket.adb, g-socket.ads (System.Communications.Last_Index): For the case where no element has been transferred and Item'First = Stream_Element_Offset'First, raise CONSTRAINT_ERROR. 2009-12-01 Ed Schonberg * sem_ch10.adb (Install_Siblings): A private with_clause on some child unit U in an ancestor of the current unit must be ignored if the current unit has a regular with_clause on U. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154868 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/a-ststio.adb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/a-ststio.adb') diff --git a/gcc/ada/a-ststio.adb b/gcc/ada/a-ststio.adb index 79ee6cdfd5a..89273a89f4c 100644 --- a/gcc/ada/a-ststio.adb +++ b/gcc/ada/a-ststio.adb @@ -29,9 +29,10 @@ -- -- ------------------------------------------------------------------------------ -with Interfaces.C_Streams; use Interfaces.C_Streams; +with Interfaces.C_Streams; use Interfaces.C_Streams; with System; use System; +with System.Communication; use System.Communication; with System.File_IO; with System.Soft_Links; with System.CRTL; @@ -293,8 +294,8 @@ package body Ada.Streams.Stream_IO is end if; File.Index := File.Index + Count (Nread); - Last := Item'First + Stream_Element_Offset (Nread) - 1; File.Last_Op := Op_Read; + Last := Last_Index (Item'First, Nread); end Read; -- This version of Read is the primitive operation on the underlying -- cgit v1.2.1