diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 15:31:42 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-17 15:31:42 +0200 |
| commit | c5d91669f305eb83adb2ef982b05ee19a15fbf47 (patch) | |
| tree | d8fc5b05422c518bb486d7b26cdb24c2dcf90224 /gcc/ada/sem_res.adb | |
| parent | c4edb5791a28deb8bc93737089840d4c989418f1 (diff) | |
| download | gcc-c5d91669f305eb83adb2ef982b05ee19a15fbf47.zip gcc-c5d91669f305eb83adb2ef982b05ee19a15fbf47.tar.gz gcc-c5d91669f305eb83adb2ef982b05ee19a15fbf47.tar.bz2 | |
[multiple changes]
2009-04-17 Robert Dewar <dewar@adacore.com>
* exp_disp.adb: Minor reformatting
Minor code reorganization (use Nkind_In)
* prepcomp.adb: Minor reformatting
* sem_ch3.adb: Minor reformatting
* sem_res.adb: Minor comment addition
* exp_ch5.adb (Expand_Assign_Array): Use Has_Address_Clause to test
for address clause
* lib-xref.adb (Generate_Reference): Exclude recursive calls from
setting Is_Referenced
* types.ads: Minor reformatting
2009-04-17 Arnaud Charlet <charlet@adacore.com>
* gnat_ugn.texi: Initial documentation on binding generator.
From-SVN: r146266
Diffstat (limited to 'gcc/ada/sem_res.adb')
| -rw-r--r-- | gcc/ada/sem_res.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index 31242c6..676cbc2 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -5231,6 +5231,9 @@ package body Sem_Res is and then Present (Controlling_Argument (N)) then Generate_Reference (Nam, Subp, 'R'); + + -- Normal case, not a dispatching call + else Generate_Reference (Nam, Subp); end if; |