PR ada/52494

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-suewst.adb

diff --git a/gcc/ada/a-suewst.adb b/gcc/ada/a-suewst.adb
old mode 100755 (executable)
new mode 100644 (file)
index 67f39ec..3725c5e
--- a/gcc/ada/a-suewst.adb
+++ b/gcc/ada/a-suewst.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---             Copyright (C) 2010, Free Software Foundation, Inc.           --
+--          Copyright (C) 2010-2011, 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- --
@@ -66,10 +66,10 @@ package body Ada.Strings.UTF_Encoding.Wide_Strings is
       R : Unsigned_16;
 
       procedure Get_Continuation;
-      --  Reads a continuation byte of the form 10xxxxxx, shifts R left
-      --  by 6 bits, and or's in the xxxxxx to the low order 6 bits. On
-      --  return Ptr is incremented. Raises exception if continuation
-      --  byte does not exist or is invalid.
+      --  Reads a continuation byte of the form 10xxxxxx, shifts R left by 6
+      --  bits, and or's in the xxxxxx to the low order 6 bits. On return Ptr
+      --  is incremented. Raises exception if continuation byte does not exist
+      --  or is invalid.
 
       ----------------------
       -- Get_Continuation --