diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:29:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-04-06 09:29:20 +0000 |
| commit | 498f964b79d6a5830bb41125423df37900fd0f81 (patch) | |
| tree | defb84df2af89396c0b0e9e24f0de9b74e6f261f /gcc/ada/fname-uf.ads | |
| parent | 3d572c5af04d49cb6315182f363a1f8911cf06fd (diff) | |
| download | gcc-498f964b79d6a5830bb41125423df37900fd0f81.tar.gz | |
2007-04-06 Robert Dewar <dewar@adacore.com>
Arnaud Charlet <charlet@adacore.com>
* a-diroro.ads: Inserted the pragma Unimplemented_Unit
* bindgen.adb (Gen_Output_File_Ada): Generate pragma Ada_95 at start
of files
Add mention of -Sev (set initialize_scalars option from environment
variable at run time) in gnatbind usage message.
* elists.ads, elists.adb: (Append_Unique_Elmt): New procedure
* fname-uf.ads: Minor comment fix
* osint.ads: Change pragma Elaborate to Elaborate_All
* par-load.adb: Add documentation.
* sem_cat.ads, sem_cat.adb: Minor code reorganization
* s-parint.ads (RCI_Locator) : Add 'Version' generic formal
* s-secsta.ads: Extra comments
* s-soflin.ads: Minor comment fixes
* s-stratt.ads (Block_Stream_Ops_OK): Removed.
* s-wchcon.ads: Minor comment addition
* treepr.adb: Minor change in message
(Print_Name,Print_Node): Make these debug printouts more robust: print
"no such..." instead of crashing on bad input.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123606 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/fname-uf.ads')
| -rw-r--r-- | gcc/ada/fname-uf.ads | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/fname-uf.ads b/gcc/ada/fname-uf.ads index ded1b8fa77f..bf047704231 100644 --- a/gcc/ada/fname-uf.ads +++ b/gcc/ada/fname-uf.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2006, 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- -- @@ -58,10 +58,9 @@ package Fname.UF is Subunit : Boolean; May_Fail : Boolean := False) return File_Name_Type; -- This function returns the file name that corresponds to a given unit - -- name, Uname. The Subunit parameter is set True for subunits, and - -- false for all other kinds of units. The caller is responsible for - -- ensuring that the unit name meets the requirements given in package - -- Uname and described above. + -- name, Uname. The Subunit parameter is set True for subunits, and false + -- for all other kinds of units. The caller must ensure that the unit name + -- meets the requirements given in package Uname. -- -- When May_Fail is True, if the file cannot be found, this function -- returns No_File. When it is False, if the file cannot be found, |