ada: Refine types for an accessibility-checking routine
commitda59893d855a2d10e9c94b57c9b2d4d91f05a140
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 1 Feb 2023 20:47:32 +0000 (1 21:47 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 26 May 2023 07:29:15 +0000 (26 09:29 +0200)
tree154d3519f52f41d656930d6fa9bf3956c2d4729d
parent8ba0b4cfeb518e4a4c5f3d3f8acc8cd700a05a93
ada: Refine types for an accessibility-checking routine

Code cleanup related to work on expression functions for GNATprove
(which require accessibility checks even when they are not expanded
and thus have no explicit return statements).

gcc/ada/

* accessibility.adb
(Is_Formal_Of_Current_Function): This routine expects an entity
reference and not the entity itself, so its parameter is a Node_Id
and not an Entity_Id.
gcc/ada/accessibility.adb