diff options
| author | Robert Dewar <dewar@adacore.com> | 2009-07-23 09:10:58 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-23 11:10:58 +0200 |
| commit | 97cb64f052a76046aaf4d3290ef5ceb744f3e779 (patch) | |
| tree | 02f3bb6519f0b72fab76e98d4fd1dd8cf62ae342 /gcc/ada/exp_disp.ads | |
| parent | 839de535711edea848b1b0ca8a98f3e59e7af4f0 (diff) | |
| download | gcc-97cb64f052a76046aaf4d3290ef5ceb744f3e779.zip gcc-97cb64f052a76046aaf4d3290ef5ceb744f3e779.tar.gz gcc-97cb64f052a76046aaf4d3290ef5ceb744f3e779.tar.bz2 | |
exp_ch5.adb (Expand_N_Assignment_Statement): Do left-side validity check right away so it does not get skipped for early...
2009-07-23 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb (Expand_N_Assignment_Statement): Do left-side validity
check right away so it does not get skipped for early returns, e.g.
array assignments.
(Expand_N_Assignment_Statement): Don't propagate Is_Known_Valid to
left-side unless we really know the value is valid.
* errout.adb, exp_ch3.adb, exp_disp.ads, sinfo.ads, exp_disp.adb: Minor
reformatting. Minor code reorganization. Add comments.
From-SVN: r149978
Diffstat (limited to 'gcc/ada/exp_disp.ads')
| -rw-r--r-- | gcc/ada/exp_disp.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/exp_disp.ads b/gcc/ada/exp_disp.ads index fab99c2..05609c3 100644 --- a/gcc/ada/exp_disp.ads +++ b/gcc/ada/exp_disp.ads @@ -34,8 +34,10 @@ package Exp_Disp is -- SCIL Node Type Definition -- ------------------------------- - type Scil_Node_Kind is ( - Unused, + -- Comment required! ??? What is this type??? + + type Scil_Node_Kind is + (Unused, IP_Tag_Init, Dispatching_Call, Dispatch_Table_Object_Init, |