diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 10:44:05 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-27 10:44:05 +0000 |
| commit | ca852500e5d5ebbd1fc1961301e9e7703b2d5124 (patch) | |
| tree | 9c94563f057728c9a82fca43f5d23201aff891a2 | |
| parent | 7961742b641a291aaa20132a907691d88a3ad9fe (diff) | |
| download | ppe42-gcc-ca852500e5d5ebbd1fc1961301e9e7703b2d5124.tar.gz ppe42-gcc-ca852500e5d5ebbd1fc1961301e9e7703b2d5124.zip | |
2008-05-27 Thomas Quinot <quinot@adacore.com>
* sem_res.adb: Minor comment fixes
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@136004 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 9cc285f1100..f59e6415962 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) |
