diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 07:54:01 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 07:54:01 +0000 |
commit | dbe7d6a179f1468d4b2cd198fde7f88329356bbb (patch) | |
tree | 4186df50e247e4460884b7910aa40c6b4465464f /gcc/ada/g-souinf.ads | |
parent | 0f3718343b79a1d8e5b542e255d617412d5b8399 (diff) | |
download | gcc-dbe7d6a179f1468d4b2cd198fde7f88329356bbb.tar.gz |
2005-09-01 Ed Schonberg <schonberg@adacore.com>
* exp_intr.adb (Expand_Source_Name): For Enclosing_Entity, generate
fully qualified name, to distinguish instances with the same local name.
* g-souinf.ads (Enclosing_Entity): Document that entity name is now
fully qualified.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103864 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/g-souinf.ads')
-rw-r--r-- | gcc/ada/g-souinf.ads | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gcc/ada/g-souinf.ads b/gcc/ada/g-souinf.ads index a04b32b9e75..b49fa807b4c 100644 --- a/gcc/ada/g-souinf.ads +++ b/gcc/ada/g-souinf.ads @@ -39,15 +39,15 @@ -- the name of the source file in which the exception is handled. package GNAT.Source_Info is -pragma Pure (Source_Info); + pragma Pure; function File return String; -- Return the name of the current file, not including the path information. -- The result is considered to be a static string constant. function Line return Positive; - -- Return the current input line number. The result is considered - -- to be a static expression. + -- Return the current input line number. The result is considered to be a + -- static expression. function Source_Location return String; -- Return a string literal of the form "name:line", where name is the @@ -61,12 +61,14 @@ pragma Pure (Source_Info); -- Return the name of the current subprogram, package, task, entry or -- protected subprogram. The string is in exactly the form used for the -- declaration of the entity (casing and encoding conventions), and is - -- considered to be a static string constant. + -- considered to be a static string constant. The name is fully qualified + -- using periods where possible (this is not always possible, notably in + -- the case of entities appearing in unnamed block statements.) -- - -- Note: if this function is used at the outer level of a generic - -- package, the string returned will be the name of the instance, - -- not the generic package itself. This is useful in identifying - -- and logging information from within generic templates. + -- Note: if this function is used at the outer level of a generic package, + -- the string returned will be the name of the instance, not the generic + -- package itself. This is useful in identifying and logging information + -- from within generic templates. private pragma Import (Intrinsic, File); |