r274301 - in /trunk/gcc/ada: ChangeLog libgnat/...

[pmderodat@gcc.gnu.org]

Author: pmderodat
Date: Mon Aug 12 09:01:20 2019
New Revision: 274301

URL: https://gcc.gnu.org/viewcvs?rev=274301&root=gcc&view=rev
Log:
[Ada] Prevent crash in Is_Reachable

This patch fixes a bug in Is_Reachable, which causes a crash when checks
are on.

2019-08-12  Bob Duff  <duff@adacore.com>

gcc/ada/

	* libgnat/a-cbmutr.adb (Is_Reachable): Declare Idx to be of the
	base subtype.  Clearly it makes no sense to loop "while Idx >=
	0", if Idx is of a nonnegative subtype.

Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/libgnat/a-cbmutr.adb