diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-01 09:52:51 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-01 09:52:51 +0000 |
| commit | 43e39b42f3afb986f9d56d50706909fd075179ee (patch) | |
| tree | eeec9a706733f203876ebacade50c8506ca77123 /gcc/ada/s-commun.adb | |
| parent | 3c0e965b93664390caac96ffed4256975878d5f7 (diff) | |
| download | gcc-43e39b42f3afb986f9d56d50706909fd075179ee.tar.gz | |
2009-12-01 Ed Schonberg <schonberg@adacore.com>
* 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 <charlet@adacore.com>
* 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 <quinot@adacore.com>
* scos.ads: Updated specification of source coverage obligation
information.
2009-12-01 Thomas Quinot <quinot@adacore.com>
* 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 <schonberg@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/s-commun.adb')
| -rw-r--r-- | gcc/ada/s-commun.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/s-commun.adb b/gcc/ada/s-commun.adb index 79d74ecad5a..8d0c2e52d0f 100644 --- a/gcc/ada/s-commun.adb +++ b/gcc/ada/s-commun.adb @@ -39,12 +39,14 @@ package body System.Communication is function Last_Index (First : Ada.Streams.Stream_Element_Offset; - Count : C.int) return Ada.Streams.Stream_Element_Offset + Count : CRTL.size_t) return Ada.Streams.Stream_Element_Offset is use type Ada.Streams.Stream_Element_Offset; + use type System.CRTL.size_t; begin if First = SEO'First and then Count = 0 then - return SEO'Last; + raise Constraint_Error with + "last index out of range (no element transferred)"; else return First + SEO (Count - 1); end if; |