diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 12:49:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-18 12:49:46 +0000 |
| commit | 4320e73005b2d4a3a0d85e00e2e52e9614b16442 (patch) | |
| tree | 467c97c067919d49de32ef738eadbbd40e45e377 /gcc/ada/g-pehage.ads | |
| parent | ce33833341105e3af83afc0f974fb0dcba0ac538 (diff) | |
| download | gcc-4320e73005b2d4a3a0d85e00e2e52e9614b16442.tar.gz | |
2010-06-18 Bob Duff <duff@adacore.com>
* g-pehage.ads, g-pehage.adb (Produce): Clean up some of the code.
Raise an exception if the output file cannot be opened. Add comments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@160985 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-pehage.ads')
| -rw-r--r-- | gcc/ada/g-pehage.ads | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/ada/g-pehage.ads b/gcc/ada/g-pehage.ads index e4d0e902df9..c01c2857610 100644 --- a/gcc/ada/g-pehage.ads +++ b/gcc/ada/g-pehage.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2002-2008, AdaCore -- +-- Copyright (C) 2002-2010, AdaCore -- -- -- -- 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- -- @@ -130,9 +130,13 @@ package GNAT.Perfect_Hash_Generators is -- Raise Too_Many_Tries in case that the algorithm does not succeed in less -- than Tries attempts (see Initialize). - procedure Produce (Pkg_Name : String := Default_Pkg_Name); + procedure Produce (Pkg_Name : String := Default_Pkg_Name); -- Generate the hash function package Pkg_Name. This package includes the - -- minimal perfect Hash function. + -- minimal perfect Hash function. The output is placed in the current + -- directory, in files X.ads and X.adb, where X is the standard GNAT file + -- name for a package named Pkg_Name. + + ---------------------------------------------------------------- -- The routines and structures defined below allow producing the hash -- function using a different way from the procedure above. The procedure |