[Ada] Reject overlays in Global/Depends/Initializes contracts
authorPiotr Trojanek <trojanek@adacore.com>
Thu, 29 Apr 2021 22:29:33 +0000 (00:29 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Mon, 5 Jul 2021 13:09:17 +0000 (13:09 +0000)
commit59748b7180590360d3608d30e707a27b0b2cb476
tree6611f2665a981cab12c0072f2c616573b0b56e30
parentfdb5c200369c8ba56358a145e0c5c6c461ad5a45
[Ada] Reject overlays in Global/Depends/Initializes contracts

gcc/ada/

* sem_prag.adb (Analyze_Depends_In_Decl_Part): Reject overlays
in Depends and Refined_Depends contracts.
(Analyze_Global_In_Decl_Part): Likewise for Global and
Refined_Global.
(Analyze_Initializes_In_Decl_Part): Likewise for Initializes
(when appearing both as a single item and as a initialization
clause).
* sem_util.ads (Ultimate_Overlaid_Entity): New routine.
* sem_util.adb (Report_Unused_Body_States): Ignore overlays.
(Ultimate_Overlaid_Entity): New routine.
gcc/ada/sem_prag.adb
gcc/ada/sem_util.adb
gcc/ada/sem_util.ads