From 6ba6b1e33331f89ae41ce79e4edf3aee5b744f9c Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 27 May 2008 12:44:05 +0200 Subject: [PATCH] sem_res.adb: Minor comment fixes 2008-05-27 Thomas Quinot * sem_res.adb: Minor comment fixes From-SVN: r136004 --- gcc/ada/sem_res.adb | 4 ++-- 1 file 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) -- 2.30.2