* gcc-interface/utils2.c (build_unary_op) <ATTR_ADDR_EXPR>: Do not

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-sha224.ads

diff --git a/gcc/ada/g-sha224.ads b/gcc/ada/g-sha224.ads
index 25c4039..c7084e8 100644 (file)
--- a/gcc/ada/g-sha224.ads
+++ b/gcc/ada/g-sha224.ads
@@ -29,13 +29,22 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-with System.Secure_Hashes.SHA2_Common;
-with System.Secure_Hashes.SHA2_32;
-package GNAT.SHA224 is new System.Secure_Hashes.H
-  (Block_Words    => System.Secure_Hashes.SHA2_Common.Block_Words,
+--  This package implaments the SHA-224 secure hash function as decsribed in
+--  FIPS PUB 180-3. The complete text of FIPS PUB 180-3 can be found at:
+--    http://csrc.nist.gov/publications/fips/fips180-3/fips180-3_final.pdf
+
+--  See the declaration of GNAT.Secure_Hashes.H in g-sechas.ads for complete
+--  documentation.
+
+with GNAT.Secure_Hashes.SHA2_Common;
+with GNAT.Secure_Hashes.SHA2_32;
+with System;
+
+package GNAT.SHA224 is new GNAT.Secure_Hashes.H
+  (Block_Words    => GNAT.Secure_Hashes.SHA2_Common.Block_Words,
    State_Words    => 8,
    Hash_Words     => 7,
    Hash_Bit_Order => System.High_Order_First,
-   Hash_State     => System.Secure_Hashes.SHA2_32.Hash_State,
-   Initial_State  => System.Secure_Hashes.SHA2_32.SHA224_Init_State,
-   Transform      => System.Secure_Hashes.SHA2_32.Transform);
+   Hash_State     => GNAT.Secure_Hashes.SHA2_32.Hash_State,
+   Initial_State  => GNAT.Secure_Hashes.SHA2_32.SHA224_Init_State,
+   Transform      => GNAT.Secure_Hashes.SHA2_32.Transform);