summaryrefslogtreecommitdiff
path: root/gcc/ada/a-stream.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-01-22 16:53:24 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2014-01-22 16:53:24 +0000
commit985fe5d62c6de1cd2b2d79844beafdfe10839255 (patch)
treec2a3fc941f046c66f8972beb7e9e0440daca362e /gcc/ada/a-stream.adb
parent2fddb086187a40ddbcfdfcec616eecf5c168f797 (diff)
downloadgcc-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.adb2
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;