From b045b3e266f9897a0e3fe15d333bdcb486ae288b Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 4 Dec 2024 16:22:05 +0100 Subject: 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. --- gcc/ada/sem_attr.adb | 2 +- gcc/ada/tbuild.adb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb index 6cee808..6eb04b2 100644 --- 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 3115426..598030b 100644 --- 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, -- cgit v1.1