2010-10-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / gcc / ada / sem_prag.ads

diff --git a/gcc/ada/sem_prag.ads b/gcc/ada/sem_prag.ads
index 7218ff6..4106120 100644 (file)
--- a/gcc/ada/sem_prag.ads
+++ b/gcc/ada/sem_prag.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2008, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2010, 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- --
@@ -51,7 +51,7 @@ package Sem_Prag is
    --  Precondition, and Postcondition to determine if Check pragmas (or
    --  corresponding Assert, Precondition, or Postcondition pragmas) are
    --  currently active, as determined by the presence of -gnata on the
-   --  command line (which sets the default), and the appearence of pragmas
+   --  command line (which sets the default), and the appearance of pragmas
    --  Check_Policy and Assertion_Policy as configuration pragmas either in
    --  a configuration pragma file, or at the start of the current unit.
    --  True is returned if the specified check is enabled.
@@ -75,7 +75,7 @@ package Sem_Prag is
    --  occurrence is a reference for the purposes of giving warnings about
    --  unreferenced variables. This function returns True if the reference is
    --  not a reference from this point of view (e.g. the occurrence in a pragma
-   --  Pack) and False if it is a real reference (e.g. the occcurrence in a
+   --  Pack) and False if it is a real reference (e.g. the occurrence in a
    --  pragma Export);
 
    function Is_Pragma_String_Literal (Par : Node_Id) return Boolean;
@@ -99,8 +99,8 @@ package Sem_Prag is
    procedure Process_Compilation_Unit_Pragmas (N : Node_Id);
    --  Called at the start of processing compilation unit N to deal with any
    --  special issues regarding pragmas. In particular, we have to deal with
-   --  Suppress_All at this stage, since it appears after the unit instead of
-   --  before.
+   --  Suppress_All at this stage, since it can appear after the unit instead
+   --  of before (actually we allow it to appear anywhere).
 
    procedure Set_Encoded_Interface_Name (E : Entity_Id; S : Node_Id);
    --  This routine is used to set an encoded interface name. The node S is an