diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-29 10:41:40 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-29 10:41:40 +0000 |
| commit | 7a9ab423c87c1decf79e9168323a5c5bfbf80550 (patch) | |
| tree | bf7a29ce1d1d04c64b0ab6e48d3ae1828af6a531 /gcc/ada/g-sechas.ads | |
| parent | 4db43fab3f4ff5766d33245315d7f9d5a74e4c53 (diff) | |
| download | gcc-7a9ab423c87c1decf79e9168323a5c5bfbf80550.tar.gz | |
2012-10-29 Vincent Celier <celier@adacore.com>
* projects.texi: Clarify documentation of attribute
Ignore_Source_Sub_Dirs.
2012-10-29 Robert Dewar <dewar@adacore.com>
* g-sechas.adb, g-sechas.ads, exp_ch9.adb, bindgen.adb, exp_dbug.adb,
exp_dbug.ads: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@192922 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-sechas.ads')
| -rw-r--r-- | gcc/ada/g-sechas.ads | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/gcc/ada/g-sechas.ads b/gcc/ada/g-sechas.ads index 55f44c6de94..f3f71601de5 100644 --- a/gcc/ada/g-sechas.ads +++ b/gcc/ada/g-sechas.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2009-2012, Free Software Foundation, Inc. -- +-- Copyright (C) 2009-2012, 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- -- @@ -37,7 +37,9 @@ -- Use GNAT.MD5 and GNAT.SHA* instead. with Ada.Streams; use Ada.Streams; + with Interfaces; + with System; package GNAT.Secure_Hashes is @@ -85,15 +87,14 @@ package GNAT.Secure_Hashes is procedure To_Hash (H : State; H_Bits : out Stream_Element_Array); - -- Convert H to stream representation with the given bit order. - -- If H_Bits is smaller than the internal hash state, then the state + -- Convert H to stream representation with the given bit order. If + -- H_Bits is smaller than the internal hash state, then the state -- is truncated. end Hash_Function_State; - -- Generic hashing framework: - -- The user interface for each implemented secure hash function is an - -- instance of this generic package. + -- Generic hashing framework: The user interface for each implemented + -- secure hash function is an instance of this generic package. generic Block_Words : Natural; @@ -167,7 +168,7 @@ package GNAT.Secure_Hashes is function Digest (S : String) return Binary_Message_Digest; function Wide_Digest (W : Wide_String) return Binary_Message_Digest; function Digest - (A : Stream_Element_Array) return Binary_Message_Digest; + (A : Stream_Element_Array) return Binary_Message_Digest; -- These functions are equivalent to the corresponding Update (or -- Wide_Update) on a default initialized Context, followed by Digest -- on the resulting Context. @@ -180,8 +181,8 @@ package GNAT.Secure_Hashes is -- Return hash for the data accumulated with C in hexadecimal -- representation. - function Digest (S : String) return Message_Digest; - function Wide_Digest (W : Wide_String) return Message_Digest; + function Digest (S : String) return Message_Digest; + function Wide_Digest (W : Wide_String) return Message_Digest; function Digest (A : Stream_Element_Array) return Message_Digest; -- These functions are equivalent to the corresponding Update (or -- Wide_Update) on a default initialized Context, followed by Digest |