[gcc r17-876] ada: Minor cleanup

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:519c29f6c611a81f24e74b9c5bd4551a44cf6be3

commit r17-876-g519c29f6c611a81f24e74b9c5bd4551a44cf6be3
Author: Marc Poulhiès <poulh...@adacore.com>
Date:   Mon Mar 2 15:57:17 2026 +0100

    ada: Minor cleanup
    
    Call Decorate to set fields for aspect instead of setting them manually.
    
    gcc/ada/ChangeLog:
    
            * sem_ch13.adb (Make_Pragma_From_Boolean_Aspect): Use Decorate.

Diff:
---
 gcc/ada/sem_ch13.adb | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 9289d8c17328..62b7af9f6630 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -1543,11 +1543,8 @@ package body Sem_Ch13 is
                   Make_Pragma_Argument_Association (Sloc (Ident),
                     Expression => New_Occurrence_Of (Ent, Sloc (Ident)))));
 
-            Set_From_Aspect_Specification (Prag, True);
-            Set_Corresponding_Aspect (Prag, ASN);
-            Set_Aspect_Rep_Item (ASN, Prag);
+            Decorate (ASN, Prag);
             Set_Is_Delayed_Aspect (Prag);
-            Set_Parent (Prag, ASN);
          end if;
       end Make_Pragma_From_Boolean_Aspect;