[Ada] Prevent In_Check_Node routine from going too far in the parent chain
authorPiotr Trojanek <trojanek@adacore.com>
Fri, 4 Dec 2020 12:00:10 +0000 (13:00 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 17 Dec 2020 10:49:23 +0000 (05:49 -0500)
commit2f29ceb054a350abb6d377472304ac9768eed11f
tree39119f0a248f9afb4624e2bc8a005aa2a039fdc5
parent3e05da6849f5548db51ffa15030b1fc8aacb8d9c
[Ada] Prevent In_Check_Node routine from going too far in the parent chain

gcc/ada/

* sem_util.adb (In_Check_Node): Add guard and rename Node to
Par, just like it is done in surrounding routines, e.g.
In_Assertion_Expression_Pragma and In_Generic_Formal_Package.
gcc/ada/sem_util.adb