exp_ch3.adb (Build_Initialization_Call): Apply predicate check to default…
exp_ch3.adb (Build_Initialization_Call): Apply predicate check to default discriminant value if checks are enabled. 2017-01-06 Ed Schonberg <schonberg@adacore.com> * exp_ch3.adb (Build_Initialization_Call): Apply predicate check to default discriminant value if checks are enabled. (Build_Assignment): If type of component has static predicate, apply check to its default value, if any. From-SVN: r244147
Showing
Please
register
or
sign in
to comment