diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-19 14:24:07 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-19 14:24:07 +0000 |
| commit | 9fb1fcd1d02216ed77a98a761f7b1a1eb8e3e2f0 (patch) | |
| tree | a57faeaf8a7a0c6e7070868d587ca81339b04831 /gcc/ada/exp_dbug.ads | |
| parent | 12057c3c70805391a4dcf9c3167c947b3db66d6c (diff) | |
| download | ppe42-gcc-9fb1fcd1d02216ed77a98a761f7b1a1eb8e3e2f0.tar.gz ppe42-gcc-9fb1fcd1d02216ed77a98a761f7b1a1eb8e3e2f0.zip | |
2004-05-19 Joel Brobecker <brobecker@gnat.com>
* exp_dbug.ads: Correct comments concerning handling of overloading,
since we no longer use $ anymore.
2004-05-19 Sergey Rybin <rybin@act-europe.fr>
* sem_ch10.adb (Optional_Subunit): When loading a subunit, do not
ignore errors if ASIS_Mode is set. This prevents creating ASIS trees
with illegal subunits.
2004-05-19 Ed Schonberg <schonberg@gnat.com>
* sem_ch6.adb (Check_Following_Pragma): When compiling a subprogram
body with front-end inlining enabled, check whether an inline pragma
appears immediately after the body and applies to it.
* sem_prag.adb (Cannot_Inline): Emit warning if front-end inlining is
enabled and the pragma appears after the body of the subprogram.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82026 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_dbug.ads')
| -rw-r--r-- | gcc/ada/exp_dbug.ads | 26 |
1 files changed, 11 insertions, 15 deletions
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads index e8738b3aad5..080e8661564 100644 --- a/gcc/ada/exp_dbug.ads +++ b/gcc/ada/exp_dbug.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1996-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1996-2004 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- -- @@ -99,23 +99,19 @@ package Exp_Dbug is -- subprograms, since overloading can legitimately result in a -- case of two entities with exactly the same fully qualified names. -- To distinguish between entries in a set of overloaded subprograms, - -- the encoded names are serialized by adding one of the suffixes: + -- the encoded names are serialized by adding the suffix: - -- $n (dollar sign) -- __nn (two underscores) -- where nn is a serial number (2 for the second overloaded function, - -- 2 for the third, etc.). We use $ if this symbol is allowed, and - -- double underscore if it is not. In the remaining examples in this - -- section, we use a $ sign, but the $ is replaced by __ throughout - -- these examples if $ sign is not available. A suffix of $1 is - -- always omitted (i.e. no suffix implies the first instance). + -- 2 for the third, etc.). A suffix of __1 is always omitted (i.e. no + -- suffix implies the first instance). -- These names are prefixed by the normal full qualification. So -- for example, the third instance of the subprogram qrs in package -- yz would have the name: - -- yz__qrs$3 + -- yz__qrs__3 -- A more subtle case arises with entities declared within overloaded -- subprograms. If we have two overloaded subprograms, and both declare @@ -128,7 +124,7 @@ package Exp_Dbug is -- we are talking about. For this purpose, we use a more complex suffix -- which has the form: - -- $nn_nn_nn ... + -- __nn_nn_nn ... -- where the nn values are the homonym numbers as needed for any of -- the qualifying entities, separated by a single underscore. If all @@ -141,13 +137,13 @@ package Exp_Dbug is -- procedure Tuv is ... end; -- Name is yz__qrs__tuv -- begin ... end Qrs; - -- procedure Qrs (X: Int) is -- Name is yz__qrs$2 - -- procedure Tuv is ... end; -- Name is yz__qrs__tuv$2_1 - -- procedure Tuv (X: Int) is -- Name is yz__qrs__tuv$2_2 + -- procedure Qrs (X: Int) is -- Name is yz__qrs__2 + -- procedure Tuv is ... end; -- Name is yz__qrs__tuv__2_1 + -- procedure Tuv (X: Int) is -- Name is yz__qrs__tuv__2_2 -- begin ... end Tuv; - -- procedure Tuv (X: Float) is -- Name is yz__qrs__tuv$2_3 - -- type m is new float; -- Name is yz__qrs__tuv__m$2_3 + -- procedure Tuv (X: Float) is -- Name is yz__qrs__tuv__2_3 + -- type m is new float; -- Name is yz__qrs__tuv__m__2_3 -- begin ... end Tuv; -- begin ... end Qrs; -- end Yz; |
