Commit fae8eb5b by Gary Dismukes Committed by Arnaud Charlet

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
parent 00f45f30
2017-01-13 Gary Dismukes <dismukes@adacore.com>
* inline.adb: Minor reformatting and typo fix.
2017-01-13 Ed Schonberg <schonberg@adacore.com> 2017-01-13 Ed Schonberg <schonberg@adacore.com>
* sem_util.ads, sem_util.adb (Choice_List): Move function here * sem_util.ads, sem_util.adb (Choice_List): Move function here
......
...@@ -3397,9 +3397,9 @@ package body Inline is ...@@ -3397,9 +3397,9 @@ package body Inline is
elsif Present (Exit_Lab) then elsif Present (Exit_Lab) then
-- If there is a single return statement at the end of the -- If there's a single return statement at the end of the subprogram,
-- subprogram, the corresponding goto statement and the -- the corresponding goto statement and the corresponding label are
-- corresponding label are useless. -- useless.
if Num_Ret = 1 if Num_Ret = 1
and then and then
...@@ -4225,7 +4225,7 @@ package body Inline is ...@@ -4225,7 +4225,7 @@ package body Inline is
Remove_Items (Aspect_Specifications (Body_Decl)); Remove_Items (Aspect_Specifications (Body_Decl));
Remove_Items (Declarations (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. -- in the body of the subprogram.
Remove_Items (Statements (Handled_Statement_Sequence (Body_Decl))); Remove_Items (Statements (Handled_Statement_Sequence (Body_Decl)));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment