diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-02-10 14:54:15 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-02-10 14:54:15 +0100 |
| commit | 8aceda6473a81be00de01313a0b7594b438cb17f (patch) | |
| tree | 96296fb7c3c197b7499a99d51ec3dcd9936c69d5 /gcc/ada/misc.c | |
| parent | 3cf3e5c6a2dcd0233ee237f291fdf9ac25052dd5 (diff) | |
| download | gcc-8aceda6473a81be00de01313a0b7594b438cb17f.zip gcc-8aceda6473a81be00de01313a0b7594b438cb17f.tar.gz gcc-8aceda6473a81be00de01313a0b7594b438cb17f.tar.bz2 | |
exp_ch4.adb (Expand_Composite_Equality): If a component is an unchecked union with no inferable discriminants...
* exp_ch4.adb (Expand_Composite_Equality): If a component is an
unchecked union with no inferable discriminants, return a
Raise_Program_Error node, rather than inserting it at the point the
type is frozen.
(Expand_Record_Equality, Component_Equality): Handle properly the case
where some subcomponent is an unchecked union whose generated equality
code raises program error.
From-SVN: r94814
Diffstat (limited to 'gcc/ada/misc.c')
0 files changed, 0 insertions, 0 deletions