diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-06 09:55:03 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-01-06 09:55:03 +0000 |
commit | fed75ba593e302369f6a01c35be1186a9731c323 (patch) | |
tree | 2d91fd1442baa80d4b72758fd7f0112b17b8a377 /gcc/ada/s-valint.adb | |
parent | da7132b9db95271a7a97315d5da821d87f7a8afb (diff) | |
download | gcc-fed75ba593e302369f6a01c35be1186a9731c323.tar.gz |
2015-01-06 Robert Dewar <dewar@adacore.com>
* s-valint.adb: Fix typo in last checkin.
* s-valuns.adb (Value_Unsigned): More efficient fix for
Positive'Last case.
* sem_attr.adb (Analyze_Attribute): Minor reformatting
(Eval_Attribute): Static ervaluation of 'Img for enumeration types.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@219243 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-valint.adb')
-rw-r--r-- | gcc/ada/s-valint.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-valint.adb b/gcc/ada/s-valint.adb index 25b9216b189..11812971b92 100644 --- a/gcc/ada/s-valint.adb +++ b/gcc/ada/s-valint.adb @@ -108,7 +108,7 @@ package body System.Val_Int is V : Integer; P : aliased Integer := Str'First; begin - V := Scan_Integer (Str, P'Access, Str'Length); + V := Scan_Integer (Str, P'Access, Str'Last); Scan_Trailing_Blanks (Str, P); return V; end; |