ada: Remove redundant guard against empty lists
commitfa4b7069a0dfd28b58c718cf8b2060df47a39641
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 29 Mar 2023 07:36:39 +0000 (29 09:36 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 26 May 2023 07:29:18 +0000 (26 09:29 +0200)
tree2300e5c3983320d629d255de91ff6fa64a12e80b
parent9f6cee820f9c8d263dfcd1772127268508360838
ada: Remove redundant guard against empty lists

There is no need to guard against routine Contains being called on
No_Elist, because it will return False. Code cleanup related to handling
of primitive operations in GNATprove; semantics is unaffected.

gcc/ada/

* sem_prag.adb (Record_Possible_Body_Reference): Remove call to Present.
* sem_util.adb (Find_Untagged_Type_Of): Likewise.
gcc/ada/sem_prag.adb
gcc/ada/sem_util.adb