[Ada] Remove redundant protection against empty lists
commit076a6d13d1e07a72fb964579316920225829777c
authorPiotr Trojanek <trojanek@adacore.com>
Wed, 8 Jun 2022 14:58:18 +0000 (8 16:58 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 5 Jul 2022 08:28:20 +0000 (5 08:28 +0000)
tree77592e603295aaa3437d7b203759ec6f3f55eedc
parent5709fac357bb922a9eeecf42adbedd532c00fde6
[Ada] Remove redundant protection against empty lists

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

gcc/ada/

* exp_code.adb (Setup_Asm_IO_Args): Remove guard against No_List.
* par_sco.adb (Process_Decisions): Likewise.
* sem_ch13.adb (Check_Component_List): Likewise.
* sem_ch6.adb (FCL): Likewise.
gcc/ada/exp_code.adb
gcc/ada/par_sco.adb
gcc/ada/sem_ch13.adb
gcc/ada/sem_ch6.adb