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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ecd4459455d0f1666803bd9ac80d08bda8a3245d..75023bf89022556b5ca800e777672d712d1935e6 100644 (file)
--- 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 f07cc4a665059bfdea2df3a647a81b916305eb5f..1724203195ff00b3b04f570794b836215dc2a58e 100644 (file)
--- 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)));