ada: Remove redundant calls in handling of aspect specifications
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 26 Aug 2022 13:27:31 +0000 (15:27 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 4 Nov 2022 13:47:29 +0000 (14:47 +0100)
commit1207432c21a213cfac2b9499bd59367d410befe3
treef207d5e27e46a694b0b58ed51f0e01d39304f903
parentfe960a3a19e47d7c2297a19758c914329c8c954e
ada: Remove redundant calls in handling of aspect specifications

Routine Set_Aspect_Specifications sets the Has_Aspect flag, so there is
no need to set this flag again afterwards.

Code cleanup; semantics is unaffected.

gcc/ada/

* aspects.adb (Relocate_Aspect): Remove call to Set_Has_Aspects.
* sem_ch12.adb (Analyze_Formal_Package_Declaration): Likewise.
* sem_util.adb (Copy_Ghost_Aspect, Copy_SPARK_Mode_Aspect):
Likewise.
gcc/ada/aspects.adb
gcc/ada/sem_ch12.adb
gcc/ada/sem_util.adb