2014-07-16 Gary Dismukes <dismukes@adacore.com>

	* g-rewdat.adb, g-rewdat.ads: Minor reformatting.

2014-07-16  Doug Rupp  <rupp@adacore.com>

	* s-interr-hwint.adb: Casing error on parameter.

2014-07-16  Pascal Obry  <obry@adacore.com>

	* Makefile.rtl: Add g-rewdat.o dependencies in
	GNATRTL_NONTASKING_OBJS.

2014-07-16  Ed Schonberg  <schonberg@adacore.com>

	* sem_case.adb: Code clean up.



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

1 files changed, 12 insertions, 11 deletions

diff --git a/gcc/ada/g-rewdat.ads b/gcc/ada/g-rewdat.ads
index 4fc8afd6461..b525192f28c 100644
--- a/gcc/ada/g-rewdat.ads
+++ b/gcc/ada/g-rewdat.ads
@@ -28,7 +28,7 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
---  This package can be used to rewrite data on the fly. All occurences of a
+--  This package can be used to rewrite data on the fly. All occurrences of a
 --  string (named pattern) will be replaced by another string.
 
 --  It is not necessary to load all data in memory and so this package can be
@@ -37,7 +37,7 @@
 
 --  There is no dynamic allocation in the implementation.
 
---  Example, to replace all occurences of "Gnat" with "GNAT":
+--  For example, to replace all occurrences of "Gnat" with "GNAT":
 
 --    Rewriter : Buffer := Create (Pattern => "Gnat", Value => "GNAT");
 
@@ -80,12 +80,12 @@ package GNAT.Rewrite_Data is
    function Create
      (Pattern, Value : String;
       Size           : Stream_Element_Offset := 1_024) return Buffer;
-   --  Create a rewriter buffer. Pattern is the string to be rewriten as Value.
-   --  Size represent the size of the internal buffer used to store the data
-   --  reeady to be output. A larger buffer may improve the performance as the
+   --  Create a rewrite buffer. Pattern is the string to be rewritten as Value.
+   --  Size represents the size of the internal buffer used to store the data
+   --  ready to be output. A larger buffer may improve the performance, as the
    --  Output routine (see Write, Rewrite below) will be called only when this
-   --  buffer is full. Note that Size cannot be lower than Pattern'Length, if
-   --  this is the case then Size value is set to Pattern'Length.
+   --  buffer is full. Note that Size cannot be lower than Pattern'Length, and
+   --  if this is the case, then Size value is set to Pattern'Length.
 
    function Size (B : Buffer) return Natural;
    --  Returns the current size of the buffer (count of Stream_Array_Element)
@@ -114,12 +114,13 @@ package GNAT.Rewrite_Data is
                           (Buffer : out Stream_Element_Array;
                            Last   : out Stream_Element_Offset);
       Output : not null access procedure (Data : Stream_Element_Array));
-   --  Read data from Input, rewrite it and then call Output. When there is
-   --  no more data to be read from Input Last must be set to 0. Before leaving
-   --  this routine call Flush above to send all remaining data to Output.
+   --  Read data from Input, rewrite it, and then call Output. When there is
+   --  no more data to be read from Input, Last must be set to 0. Before
+   --  leaving this routine, call Flush above to send all remaining data to
+   --  Output.
 
    procedure Link (From : in out Buffer; To : Buffer_Ref);
-   --  Link two rewrite buffers, that is all data sent to From buffer will be
+   --  Link two rewrite buffers. That is, all data sent to From buffer will be
    --  rewritten and then passed to the To rewrite buffer.
 
 private