diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 11:20:44 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-01-06 11:20:44 +0100 |
| commit | 1a779058e1ebd6e68771f25062e95f3bb7ff48ab (patch) | |
| tree | 19e553bfc8fc773dca0168fb2791706a2c396f13 /gcc/ada/s-valuns.adb | |
| parent | 375cbc2bec0b70a3e54f02248f3a139ef5929419 (diff) | |
| download | gcc-1a779058e1ebd6e68771f25062e95f3bb7ff48ab.tar.gz | |
[multiple changes]
2015-01-06 Thomas Quinot <quinot@adacore.com>
* freeze.adb (Set_SSO_From_Defaults): When setting scalar storage
order to native from default, make sure to also adjust bit order.
* exp_aggr.adb: Minor reformatting.
2015-01-06 Robert Dewar <dewar@adacore.com>
* s-valllu.adb, s-valllu.ads, s-valuti.ads, s-valuns.adb, s-valuns.ads,
s-valrea.adb, s-valrea.ads: Add some additional guards for
Str'Last = Positive'Last.
2015-01-06 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb, sem_ch8.adb: Ongoing work for wrappers for actual
subprograms.
2015-01-06 Javier Miranda <miranda@adacore.com>
* exp_disp.adb (Expand_Interface_Conversion): Reapply patch.
From-SVN: r219250
Diffstat (limited to 'gcc/ada/s-valuns.adb')
| -rw-r--r-- | gcc/ada/s-valuns.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/s-valuns.adb b/gcc/ada/s-valuns.adb index 47e89bea4f9..b679807803f 100644 --- a/gcc/ada/s-valuns.adb +++ b/gcc/ada/s-valuns.adb @@ -65,6 +65,13 @@ package body System.Val_Uns is -- Digit value begin + -- We do not tolerate strings with Str'Last = Positive'Last + + if Str'Last = Positive'Last then + raise Program_Error with + "string upper bound is Positive'Last, not supported"; + end if; + P := Ptr.all; Uval := Character'Pos (Str (P)) - Character'Pos ('0'); P := P + 1; |