diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-22 06:47:22 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-06-22 06:47:22 +0000 |
| commit | 72b22c6af1c127720ab93aaaf9b3489bab8f68c0 (patch) | |
| tree | 1cd8c0f73bacd28f7da6592854ffd98057e0c9ee /gcc/ada/atree.adb | |
| parent | 6f67f57cfa754f08110c5e55de90b7fcc274aa07 (diff) | |
| download | gcc-72b22c6af1c127720ab93aaaf9b3489bab8f68c0.tar.gz | |
2010-06-22 Vincent Celier <celier@adacore.com>
* prj-nmsc.adb (Find_Sources): When a source from a multi-unit file is
found, check if it's path has aready been found, whatever its index.
2010-06-22 Robert Dewar <dewar@adacore.com>
* atree.adb, gnatbind.adb: Minor reformatting.
Minor code reorganization.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@161131 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/atree.adb')
| -rw-r--r-- | gcc/ada/atree.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/atree.adb b/gcc/ada/atree.adb index 6f1fc55111f..8bf09cb866c 100644 --- a/gcc/ada/atree.adb +++ b/gcc/ada/atree.adb @@ -63,15 +63,15 @@ package body Atree is -- Either way, gnat1 will stop when node 12345 is created - -- The second method is faster + -- The second method is much faster - -- Similarly, rr and rrd allow breaking on rewriting of a given node. + -- Similarly, rr and rrd allow breaking on rewriting of a given node ww : Node_Id'Base := Node_Id'First - 1; pragma Export (Ada, ww); -- trick the optimizer Watch_Node : Node_Id'Base renames ww; - -- Node to "watch"; that is, whenever a node is created, we check if it is - -- equal to Watch_Node, and if so, call New_Node_Breakpoint. You have + -- Node to "watch"; that is, whenever a node is created, we check if it + -- is equal to Watch_Node, and if so, call New_Node_Breakpoint. You have -- presumably set a breakpoint on New_Node_Breakpoint. Note that the -- initial value of Node_Id'First - 1 ensures that by default, no node -- will be equal to Watch_Node. @@ -108,7 +108,7 @@ package body Atree is -- calls Rewrite_Breakpoint. Otherwise, does nothing. procedure Node_Debug_Output (Op : String; N : Node_Id); - -- Common code for nnd and rrd. Write Op followed by information about N. + -- Common code for nnd and rrd, writes Op followed by information about N ----------------------------- -- Local Objects and Types -- |