diff options
| author | Gary Dismukes <dismukes@adacore.com> | 2012-11-06 10:22:42 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 11:22:42 +0100 |
| commit | 3d6db7f84dd4dd52ebc9436b462f599d9fb0564b (patch) | |
| tree | b41ad66af2ac765d8c0d188a4f2e96c2fe27d1f4 /gcc/ada/fmap.adb | |
| parent | 150ac76e0e29ec57850fca545b0e26530adf9adc (diff) | |
| download | gcc-3d6db7f84dd4dd52ebc9436b462f599d9fb0564b.zip gcc-3d6db7f84dd4dd52ebc9436b462f599d9fb0564b.tar.gz gcc-3d6db7f84dd4dd52ebc9436b462f599d9fb0564b.tar.bz2 | |
exp_attr.adb (Expand_N_Attribute_Reference): Apply a predicate check when evaluating the attribute Valid...
2012-11-06 Gary Dismukes <dismukes@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference): Apply a predicate
check when evaluating the attribute Valid, and issue a warning
about infinite recursion when the check occurs within the
predicate function of the prefix's subtype.
* exp_ch4.adb (Expand_N_In): Remove test for Is_Discrete_Type
when we're checking that there's no predicate check function as a
condition for substituting a Valid check for a scalar membership
test (substitution should be suppressed for any kind of scalar
subtype with a predicate check). Also, don't emit a predicate
check when the right operand is a range.
From-SVN: r193228
Diffstat (limited to 'gcc/ada/fmap.adb')
0 files changed, 0 insertions, 0 deletions