diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 09:11:44 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-09-10 09:11:44 +0000 |
| commit | d9d8e1dcf27c0b5af50742fe4c3bd245940e3c5d (patch) | |
| tree | e9db542574c4a4d75693d85a4208e89280d3d4b9 /gcc/ada/g-pehage.ads | |
| parent | e48cd46c81353d0ce1b175cd3d2db3de95291067 (diff) | |
| download | gcc-d9d8e1dcf27c0b5af50742fe4c3bd245940e3c5d.tar.gz | |
2010-09-10 Robert Dewar <dewar@adacore.com>
* einfo.adb: Minor code cleanup: Add assertion to
Set_Corresponding_Protected_Entry.
2010-09-10 Bob Duff <duff@adacore.com>
* g-pehage.ads, g-pehage.adb (Produce): Add a new flag to allow sending
the output to standard output.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164145 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, 6 insertions, 4 deletions
diff --git a/gcc/ada/g-pehage.ads b/gcc/ada/g-pehage.ads index dfe926ef782..c1954796eed 100644 --- a/gcc/ada/g-pehage.ads +++ b/gcc/ada/g-pehage.ads @@ -131,11 +131,13 @@ package GNAT.Perfect_Hash_Generators is -- Raise Too_Many_Tries if the algorithm does not succeed within Tries -- attempts (see Initialize). - procedure Produce (Pkg_Name : String := Default_Pkg_Name); + procedure Produce + (Pkg_Name : String := Default_Pkg_Name; Use_Stdout : Boolean := False); -- Generate the hash function package Pkg_Name. This package includes the - -- 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. + -- minimal perfect Hash function. The output is normally 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. If Use_Stdout is True, the + -- output goes to standard output, and no files are written. ---------------------------------------------------------------- |