diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-22 16:53:24 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-01-22 16:53:24 +0000 |
commit | 985fe5d62c6de1cd2b2d79844beafdfe10839255 (patch) | |
tree | c2a3fc941f046c66f8972beb7e9e0440daca362e /gcc/ada/a-stream.adb | |
parent | 2fddb086187a40ddbcfdfcec616eecf5c168f797 (diff) | |
download | gcc-985fe5d62c6de1cd2b2d79844beafdfe10839255.tar.gz |
2014-01-22 Thomas Quinot <quinot@adacore.com>
* rtsfind.adb: Update comment.
2014-01-22 Hristian Kirtchev <kirtchev@adacore.com>
* sem_aux.ads, sem_aux.adb (Is_Body): New routine.
* sem_ch3.adb (Analyze_Declarations): Add local variable
Body_Seen. Generate the spec of a late controlled
primitive body that is about to freeze its related type.
(Handle_Late_Controlled_Primitive): New routine.
2014-01-22 Robert Dewar <dewar@adacore.com>
* a-stream.adb: Minor reformatting.
2014-01-22 Ed Schonberg <schonberg@adacore.com>
* sem_ch8.adb (From_Actual_Package): Introduce a recursive
sub-procedure Declared_In_Actual to handle properly the visibility
of actuals in actual packages, that are themselves actuals to a
actual package of the current instance. This mimics properly the
visibility of formals of formal packages declared with a box,
within the corresponding generic unit.
2014-01-22 Robert Dewar <dewar@adacore.com>
* checks.adb: Do not assume that a volatile variable is valid.
2014-01-22 Thomas Quinot <quinot@adacore.com>
* g-catiio.ads (Image, Value): Clarify that these functions
operate in the local time zone. Minor documentation update.
2014-01-22 Thomas Quinot <quinot@adacore.com>
* csets.adb, csets.ads, opt.ads: Minor documentation fixes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@206930 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-stream.adb')
-rw-r--r-- | gcc/ada/a-stream.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/a-stream.adb b/gcc/ada/a-stream.adb index 59f0a3ddbdb..a22161d16da 100644 --- a/gcc/ada/a-stream.adb +++ b/gcc/ada/a-stream.adb @@ -46,8 +46,10 @@ package body Ada.Streams is V : out Stream_Element_Array) is Last : Stream_Element_Offset; + begin Read (S.all, V, Last); + if Last /= V'Last then raise Ada.IO_Exceptions.End_Error; end if; |