2011-10-16 Tristan Gingold <gingold@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-sechas.adb

diff --git a/gcc/ada/g-sechas.adb b/gcc/ada/g-sechas.adb
index 1c57548..78eddc3 100644 (file)
--- a/gcc/ada/g-sechas.adb
+++ b/gcc/ada/g-sechas.adb
@@ -37,8 +37,7 @@ package body GNAT.Secure_Hashes is
    use Ada.Streams;
 
    Hex_Digit : constant array (Stream_Element range 0 .. 15) of Character :=
-                 ('0', '1', '2', '3', '4', '5', '6', '7',
-                  '8', '9', 'a', 'b', 'c', 'd', 'e', 'f');
+                 "0123456789abcdef";
 
    type Fill_Buffer_Access is
      access procedure