diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-01 10:24:39 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-12-01 10:24:39 +0000 |
| commit | a56ef4575a11f6fb0e76f4a2b9f729c81adeded1 (patch) | |
| tree | 569a4d1362aee6c3b1571fdd7c7f8e5be0d0434d /gcc/ada/g-sechas.ads | |
| parent | 45b2f957d36f4193e7a92883e9903a05c4a650ba (diff) | |
| download | gcc-a56ef4575a11f6fb0e76f4a2b9f729c81adeded1.tar.gz | |
2009-12-01 Thomas Quinot <quinot@adacore.com>
* g-sechas.ads (GNAT.Secure_Hashes.H."=" on Context): Make abstract.
2009-12-01 Matthew Gingell <gingell@adacore.com>
* adadecode.c: Allow compilation when building the run time in the gnat
runtime.
(__gnat_decode): Strip the .nnnn suffix from names of nested functions.
* gcc-interface/Makefile.in: Ada adadecode to LIBGNAT_SRCS and
LIBGNAT_OBJS.
2009-12-01 Vincent Celier <celier@adacore.com>
* gnatcmd.adb (Check_Files): Quote the path names as they may include
spaces.
2009-12-01 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Object_Declaration): If the defining identifier
has already been declared, it may have been rewritten as a renaming
declaration.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154870 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-sechas.ads')
| -rw-r--r-- | gcc/ada/g-sechas.ads | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/ada/g-sechas.ads b/gcc/ada/g-sechas.ads index 55180ac4ca4..e0630015884 100644 --- a/gcc/ada/g-sechas.ads +++ b/gcc/ada/g-sechas.ads @@ -133,6 +133,13 @@ package GNAT.Secure_Hashes is type Context is private; -- The internal processing state of the hashing function + function "=" (L, R : Context) return Boolean is abstract; + -- Context is the internal, implementation defined state of an + -- intermediate state in a hash computation, and no specific semantics + -- can be expected on equality of context values. Only equality of + -- final hash values (as returned by the [Wide_]Digest functions below) + -- is meaningful. + Initial_Context : constant Context; -- Initial value of a Context object. May be used to reinitialize -- a Context value by simple assignment of this value to the object. |