diff --git a/gcc/ada/sem_res.ads b/gcc/ada/sem_res.ads
index 926ccbe8b0b..d8704727c30 100644
--- a/gcc/ada/sem_res.ads
+++ b/gcc/ada/sem_res.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2007, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -113,13 +113,13 @@ package Sem_Res is
    --
    --  The parameter T is the Typ for the corresponding resolve call.
 
-   procedure Pre_Analyze_And_Resolve (N : Node_Id; T : Entity_Id);
-   --  Performs a pre-analysis of expression node N. During pre-analysis
+   procedure Preanalyze_And_Resolve (N : Node_Id; T : Entity_Id);
+   --  Performs a pre-analysis of expression node N. During pre-analysis,
    --  N is analyzed and then resolved against type T, but no expansion
    --  is carried out for N or its children. For more info on pre-analysis
    --  read the spec of Sem.
 
-   procedure Pre_Analyze_And_Resolve (N : Node_Id);
+   procedure Preanalyze_And_Resolve (N : Node_Id);
    --  Same, but use type of node because context does not impose a single type
 
 private