diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 15:16:44 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 15:16:44 +0200 |
commit | 09494c325c52f55c72ab1448371ab03d25e13c50 (patch) | |
tree | 4c7ca77d2f10ec5949c3ff7d39427f1f605f2c5f /gcc/ada/sem_res.adb | |
parent | 5a989c6ba5e462a5545f2fd853df3aac24879440 (diff) | |
download | gcc-09494c325c52f55c72ab1448371ab03d25e13c50.tar.gz |
[multiple changes]
2009-07-22 Brett Porter <porter@adacore.com>
* init.c (__gnat_init_float): For SPE, set bits in SPEFSCR instead of
FPSCR.
* sysdep.c (__gnat_get_task_options): Set task option enabling SPE.
2009-07-22 Gary Dismukes <dismukes@adacore.com>
* exp_ch5.adb, sem_util.adb, sem_attr.adb, exp_dbug.ads, exp_ch2.adb,
exp_tss.ads, exp_ch4.adb, sem_ch4.adb: Correct spelling error.
Minor reformatting.
* sem_res.adb (Resolve_Explicit_Dereference): Reword one comment that
used poor terminology.
2009-07-22 Robert Dewar <dewar@adacore.com>
* freeze.adb, sem_ch3.adb, sem_prag.adb: Minor reformatting
* sem_eval.adb, exp_tss.adb: Minor comment update.
* stylesw.adb: Code clean up.
From-SVN: r149932
Diffstat (limited to 'gcc/ada/sem_res.adb')
-rw-r--r-- | gcc/ada/sem_res.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb index ca478bda1ff..b43ab51e66e 100644 --- a/gcc/ada/sem_res.adb +++ b/gcc/ada/sem_res.adb @@ -1036,7 +1036,7 @@ package body Sem_Res is and then (Ekind (Entity (N)) /= E_Enumeration_Literal or else Is_Overloaded (N))) - -- Rewrite as call if it is an explicit deference of an expression of + -- Rewrite as call if it is an explicit dereference of an expression of -- a subprogram access type, and the subprogram type is not that of a -- procedure or entry. @@ -6411,9 +6411,8 @@ package body Sem_Res is Set_Etype (N, Get_Actual_Subtype (N)); end if; - -- Note: there is no Eval processing required for an explicit deference, - -- because the type is known to be an allocators, and allocator - -- expressions can never be static. + -- Note: No Eval processing is required for an explicit dereference, + -- because such a name can never be static. end Resolve_Explicit_Dereference; |