2010-06-22 Robert Dewar <dewar@adacore.com>

	* cstand.adb: Complete previous change.
	* g-dirope.ads: Add comment.
	* s-stchop.adb, sfn_scan.adb: Minor reformatting.



git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@161206 138bc75d-0d04-0410-961f-82ee72b054a4

5 files changed, 39 insertions, 33 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6920d957f26..870345ab914 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2010-06-22  Robert Dewar  <dewar@adacore.com>
+
+	* cstand.adb: Complete previous change.
+	* g-dirope.ads: Add comment.
+	* s-stchop.adb, sfn_scan.adb: Minor reformatting.
+
 2010-06-22  Ed Schonberg  <schonberg@adacore.com>
 
 	* cstand.adb: Add tree nodes for pragma Pack on string types.
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index ec409d6ecb8..0a74be8ea59 100644
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -119,10 +119,6 @@ package body CStand is
      (New_Node_Kind : Node_Kind := N_Defining_Identifier) return Entity_Id;
    --  Builds a new entity for Standard
 
-   procedure Pack_String_Type (String_Type : Entity_Id);
-   --  Generate the proper tree for the pragma Pack that applies to each
-   --  string type.
-
    procedure Print_Standard;
    --  Print representation of package Standard if switch set
 
@@ -328,6 +324,9 @@ package body CStand is
       procedure Build_Exception (S : Standard_Entity_Type);
       --  Procedure to declare given entity as an exception
 
+      procedure Pack_String_Type (String_Type : Entity_Id);
+      --  Generate proper tree for pragma Pack that applies to given type
+
       ---------------------
       -- Build_Exception --
       ---------------------
@@ -345,6 +344,24 @@ package body CStand is
          Append (Decl, Decl_S);
       end Build_Exception;
 
+      ----------------------
+      -- Pack_String_Type --
+      ----------------------
+
+      procedure Pack_String_Type (String_Type : Entity_Id) is
+         Prag : constant Node_Id :=
+           Make_Pragma (Stloc,
+             Chars                        => Name_Pack,
+             Pragma_Argument_Associations =>
+               New_List (
+                 Make_Pragma_Argument_Association (Stloc,
+                   Expression => New_Occurrence_Of (String_Type, Stloc))));
+
+      begin
+         Append (Prag, Decl_S);
+         Record_Rep_Item (String_Type, Prag);
+      end Pack_String_Type;
+
    --  Start of processing for Create_Standard
 
    begin
@@ -1631,19 +1648,6 @@ package body CStand is
       return E;
    end New_Standard_Entity;
 
-   ----------------------
-   -- Pack_String_Type --
-   ----------------------
-
-   procedure Pack_String_Type (String_Type : Entity_Id) is
-   begin
-      Record_Rep_Item (String_Type,
-         Make_Pragma (Stloc,
-            Chars  => Name_Pack,
-            Pragma_Argument_Associations =>
-              New_List (New_Occurrence_Of (String_Type, Stloc))));
-   end Pack_String_Type;
-
    --------------------
    -- Print_Standard --
    --------------------
diff --git a/gcc/ada/g-dirope.ads b/gcc/ada/g-dirope.ads
index 28ba9c651cf..32b914bdfe8 100644
--- a/gcc/ada/g-dirope.ads
+++ b/gcc/ada/g-dirope.ads
@@ -210,7 +210,7 @@ package GNAT.Directory_Operations is
    --
    --    System_Default
    --      Uses either UNIX on Unix and OpenVMS systems, or DOS on Windows,
-   --      depending on the running environment.
+   --      depending on the running environment. What about other OS's???
 
    ---------------
    -- Iterators --
diff --git a/gcc/ada/s-stchop.adb b/gcc/ada/s-stchop.adb
index e4cd7add962..b757c56532b 100644
--- a/gcc/ada/s-stchop.adb
+++ b/gcc/ada/s-stchop.adb
@@ -48,28 +48,24 @@ package body System.Stack_Checking.Operations is
 
    function Set_Stack_Info
      (Stack : not null access Stack_Access) return Stack_Access;
-
    --  The function Set_Stack_Info is the actual function that updates the
    --  cache containing a pointer to the Stack_Info. It may also be used for
    --  detecting asynchronous abort in combination with Invalidate_Self_Cache.
-
+   --
    --  Set_Stack_Info should do the following things in order:
    --     1) Get the Stack_Access value for the current task
    --     2) Set Stack.all to the value obtained in 1)
    --     3) Optionally Poll to check for asynchronous abort
-
+   --
    --  This order is important because if at any time a write to the stack
    --  cache is pending, that write should be followed by a Poll to prevent
    --  loosing signals.
-
+   --
    --  Note: This function must be compiled with Polling turned off
-
-   --  Note: on systems with real thread-local storage,
-   --        Set_Stack_Info should return an access value for such local
-   --        storage. In those cases the cache will always be up-to-date.
-
-   --  The following constants should be imported from some system-specific
-   --  constants package. The constants must be static for performance reasons.
+   --
+   --  Note: on systems with real thread-local storage, Set_Stack_Info should
+   --  return an access value for such local storage. In those cases the cache
+   --  will always be up-to-date.
 
    ----------------------------
    -- Invalidate_Stack_Cache --
diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb
index f4ba25075ae..1d24ca227f3 100644
--- a/gcc/ada/sfn_scan.adb
+++ b/gcc/ada/sfn_scan.adb
@@ -37,10 +37,10 @@ package body SFN_Scan is
    --  Allow easy access to control character definitions
 
    EOF : constant Character := ASCII.SUB;
-   --  The character SUB (16#1A#) is DOS-derived systems, such as Windows
-   --  to signal the end of a text file. If this character appears as the
-   --  last character of a file scanned by a call to Scan_SFN_Pragmas,
-   --  then it is ignored, otherwise it is treated as an illegal character.
+   --  The character SUB (16#1A#) is used in DOS-derived systems, such as
+   --  Windows to signal the end of a text file. If this character appears as
+   --  the last character of a file scanned by a call to Scan_SFN_Pragmas, then
+   --  it is ignored, otherwise it is treated as an illegal character.
 
    type String_Ptr is access String;