diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-19 13:06:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-04-19 13:06:01 +0000 |
| commit | cdfa20c43c201701e131409bdcc96575de07e1b0 (patch) | |
| tree | 444ab39e0c86868ee041112f28077983a34e4dd0 /gcc/ada/stringt.adb | |
| parent | 620d73c866ebf53e914de8335890031da2a73da9 (diff) | |
| download | gcc-cdfa20c43c201701e131409bdcc96575de07e1b0.tar.gz | |
2016-04-19 Arnaud Charlet <charlet@adacore.com>
* sem_res.adb (Within_Subprogram_Call): Detect
also nodes that appear in entry calls.
(Resolve_Actuals, Insert_Default): Propagate
dimension information if any, from default expression to the
copy that appears in the list of actuals.
* uintp.ads: minor whitespace fix in comment.
* sem_prag.adb, stringt.adb, inline.adb, lib-xref-spark_specific.adb:
Minor code cleanup.
* set_targ.adb (Set_Targ): convert directly from
Natural to Pos, without intermediate conversion to Int.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235197 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/stringt.adb')
| -rw-r--r-- | gcc/ada/stringt.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb index 5be78732cae..175b80c257d 100644 --- a/gcc/ada/stringt.adb +++ b/gcc/ada/stringt.adb @@ -241,7 +241,7 @@ package body Stringt is -- String_Chars table all at once. S_First : constant Int := Strings.Table (S).String_Index; - S_Len : constant Int := String_Length (S); + S_Len : constant Nat := String_Length (S); Old_Last : constant Int := String_Chars.Last; New_Last : constant Int := Old_Last + S_Len; |