exp_pakd.adb (Expand_Bit_Packed_Element_Set): If the component assignment is within...
authorEd Schonberg <schonberg@adacore.com>
Wed, 26 Mar 2008 07:39:39 +0000 (08:39 +0100)
committerArnaud Charlet <charlet@gcc.gnu.org>
Wed, 26 Mar 2008 07:39:39 +0000 (08:39 +0100)
commit26658d3a35a9206153d7b1d5f03decd1bdf65062
tree49b583aa825aa02482631f1ef26b0030641c041b
parentc364d9be816f5f261d0ffaed6f0e87eed57731f4
exp_pakd.adb (Expand_Bit_Packed_Element_Set): If the component assignment is within the initialization procedure for a packed...

2008-03-26  Ed Schonberg  <schonberg@adacore.com>

* exp_pakd.adb (Expand_Bit_Packed_Element_Set): If the component
assignment is within the initialization procedure for a packed array,
and Initialize_Scalars is enabled, compile right-hand side with checks
off, because the value is purposely out of range.

From-SVN: r133566
gcc/ada/exp_pakd.adb