aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThomas Quinot <quinot@adacore.com>2008-05-27 12:44:05 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2008-05-27 12:44:05 +0200
commit6ba6b1e33331f89ae41ce79e4edf3aee5b744f9c (patch)
tree9c94563f057728c9a82fca43f5d23201aff891a2
parentd18af35f61248716eb919f1defc489f8f39d0d55 (diff)
downloadgcc-6ba6b1e33331f89ae41ce79e4edf3aee5b744f9c.zip
gcc-6ba6b1e33331f89ae41ce79e4edf3aee5b744f9c.tar.gz
gcc-6ba6b1e33331f89ae41ce79e4edf3aee5b744f9c.tar.bz2
sem_res.adb: Minor comment fixes
2008-05-27 Thomas Quinot <quinot@adacore.com> * sem_res.adb: Minor comment fixes From-SVN: r136004
-rw-r--r--gcc/ada/sem_res.adb4
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 9cc285f..f59e641 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -6561,7 +6561,7 @@ package body Sem_Res is
procedure Resolve_Null (N : Node_Id; Typ : Entity_Id) is
begin
-- Handle restriction against anonymous null access values This
- -- restriction can be turned off using -gnatdh.
+ -- restriction can be turned off using -gnatdj.
-- Ada 2005 (AI-231): Remove restriction
@@ -6571,7 +6571,7 @@ package body Sem_Res is
and then Comes_From_Source (N)
then
-- In the common case of a call which uses an explicitly null
- -- value for an access parameter, give specialized error msg
+ -- value for an access parameter, give specialized error message.
if Nkind_In (Parent (N), N_Procedure_Call_Statement,
N_Function_Call)