Code cleanup related to a new detection of uninitialised local scalar
objects; semantics is unaffected.
gcc/ada/
* sem_ch5.adb (Analyze_Block_Statement): Call to List_Length with
No_List is safe and will return zero.
-- Initialize unblocked exit count for statements of begin block
-- plus one for each exception handler that is present.
- Unblocked_Exit_Count := 1;
-
- if Present (EH) then
- Unblocked_Exit_Count := Unblocked_Exit_Count + List_Length (EH);
- end if;
+ Unblocked_Exit_Count := 1 + List_Length (EH);
-- If a label is present analyze it and mark it as referenced