diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2017-01-13 10:45:17 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-13 11:45:17 +0100 |
| commit | fae8eb5b9656d7e2bc42e4b48e627ff17de62dee (patch) | |
| tree | ebdad99f4f55922f5a3a37454eaedb1a4991af8d /gcc/ada | |
| parent | 00f45f309076825e5bae672ffc2229fbe6ef8d88 (diff) | |
| download | gcc-fae8eb5b9656d7e2bc42e4b48e627ff17de62dee.zip gcc-fae8eb5b9656d7e2bc42e4b48e627ff17de62dee.tar.gz gcc-fae8eb5b9656d7e2bc42e4b48e627ff17de62dee.tar.bz2 | |
inline.adb: Minor reformatting and typo fix.
2017-01-13 Gary Dismukes <dismukes@adacore.com>
* inline.adb: Minor reformatting and typo fix.
From-SVN: r244415
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/inline.adb | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ecd4459..75023bf 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2017-01-13 Gary Dismukes <dismukes@adacore.com> + + * inline.adb: Minor reformatting and typo fix. + 2017-01-13 Ed Schonberg <schonberg@adacore.com> * sem_util.ads, sem_util.adb (Choice_List): Move function here diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index f07cc4a..1724203 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -3397,9 +3397,9 @@ package body Inline is elsif Present (Exit_Lab) then - -- If there is a single return statement at the end of the - -- subprogram, the corresponding goto statement and the - -- corresponding label are useless. + -- If there's a single return statement at the end of the subprogram, + -- the corresponding goto statement and the corresponding label are + -- useless. if Num_Ret = 1 and then @@ -4225,7 +4225,7 @@ package body Inline is Remove_Items (Aspect_Specifications (Body_Decl)); Remove_Items (Declarations (Body_Decl)); - -- Pragmas Unmodified, Unreferenced and Unused may additionally appear + -- Pragmas Unmodified, Unreferenced, and Unused may additionally appear -- in the body of the subprogram. Remove_Items (Statements (Handled_Statement_Sequence (Body_Decl))); |