diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-06 09:12:53 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-06 09:12:53 +0000 |
| commit | 3dc1561e50073ae1f404a9adad63e76278c282a4 (patch) | |
| tree | a622bfbb577e8db77b39114e5c4b8d8cb6f76d19 /gcc/ada/exp_strm.adb | |
| parent | b5b6628676751d4667aa593b76e7140d36b8e6f3 (diff) | |
| download | gcc-3dc1561e50073ae1f404a9adad63e76278c282a4.tar.gz | |
2015-01-06 Robert Dewar <dewar@adacore.com>
* exp_strm.adb (Build_Elementary_Input_Call): Clarify comments
in previous checkin.
* freeze.adb (Freeze_Fixed_Point_Type): Add warning for shaving
of bounds.
* sem_prag.adb, sem_ch10.adb, sem_ch6.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@219229 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_strm.adb')
| -rw-r--r-- | gcc/ada/exp_strm.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_strm.adb b/gcc/ada/exp_strm.adb index 7186de4afe1..21d94472e24 100644 --- a/gcc/ada/exp_strm.adb +++ b/gcc/ada/exp_strm.adb @@ -650,7 +650,8 @@ package body Exp_Strm is -- Now convert to the base type if we do not have a biased type. Note -- that we did not do this in some older versions, and the result was - -- losing some required range checking for the 'Read case. + -- losing a required range check in the case where 'Input is being + -- called from 'Read. if not Has_Biased_Representation (P_Type) then return Unchecked_Convert_To (Base_Type (P_Type), Res); @@ -683,7 +684,6 @@ package body Exp_Strm is Libent : Entity_Id; begin - -- Compute the size of the stream element. This is either the size of -- the first subtype or if given the size of the Stream_Size attribute. |