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

[pmderodat@gcc.gnu.org]

Author: pmderodat
Date: Mon Aug 12 09:01:14 2019
New Revision: 274300

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

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

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

gcc/ada/

	* libgnat/a-tifiio.adb (Put_Scaled): Prevent AA from being
	negative, since Field is range 0 .. something.

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