ada: Assorted style cleanups

Whitespace and comment cleanups.

gcc/ada/ChangeLog:

	* sem_attr.adb (Eval_Attribute): Fix comment for attribute Image.
	* tbuild.adb (Make_SC): Remove extra whitespace.

diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 6cee808d89ab63b3e186de500e7f722a2488f491..6eb04b2e2582b153ed5f39ab91c0f89053aab2dc 100644 (file)
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -9448,7 +9448,7 @@ package body Sem_Attr is
       -----------
 
       --  Image is a scalar attribute, but is never static, because it is
-      --  not a static function (having a non-scalar argument (RM 4.9(22))
+      --  not a static function (having a non-scalar argument (RM 4.9(22)).
       --  However, we can constant-fold the image of an enumeration literal
       --  if names are available and default Image implementation has not
       --  been overridden.

diff --git a/gcc/ada/tbuild.adb b/gcc/ada/tbuild.adb
index 31154266bcb4c6eca12593ff2e5841e6eea0a796..598030bd5dbb38564b0ee4df9597497f4342091f 100644 (file)
--- a/gcc/ada/tbuild.adb
+++ b/gcc/ada/tbuild.adb
@@ -492,7 +492,7 @@ package body Tbuild is
    -- Make_SC --
    -------------
 
-   function  Make_SC (Pre, Sel : Node_Id) return Node_Id is
+   function Make_SC (Pre, Sel : Node_Id) return Node_Id is
    begin
       return
         Make_Selected_Component (System_Location,