ada: Remove redundant protection against empty lists
commite3fe66ea55761315879985fe9b03989e9033e734
authorPiotr Trojanek <trojanek@adacore.com>
Tue, 21 Mar 2023 09:29:39 +0000 (21 10:29 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 26 May 2023 07:29:17 +0000 (26 09:29 +0200)
tree5e3040bfc35fc052715ae324b6cbcc2654e7f592
parent10bb8c4ea8a1b6c7056d3a36a69702588412b0c5
ada: Remove redundant protection against empty lists

Calls to Length on No_List intentionally return 0, so explicit guards
against No_List are unnecessary. Code cleanup; semantics is unaffected.

gcc/ada/

* sem_ch13.adb (Check_Component_List): Local variable Compl is now
a constant; a nested block is no longer needed.
gcc/ada/sem_ch13.adb