diff options
author | Thomas Quinot <quinot@adacore.com> | 2008-05-27 12:44:05 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-27 12:44:05 +0200 |
commit | 6ba6b1e33331f89ae41ce79e4edf3aee5b744f9c (patch) | |
tree | 9c94563f057728c9a82fca43f5d23201aff891a2 | |
parent | d18af35f61248716eb919f1defc489f8f39d0d55 (diff) | |
download | gcc-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.adb | 4 |
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) |