diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-01-27 11:37:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-01-27 11:37:20 +0000 |
| commit | 2620467d87840b3ff231f0150c10c3a7b9167460 (patch) | |
| tree | a7212caa578ac383bb2233f213ce576653449b4a | |
| parent | 0b0aa19df10c7564549789953999aea98346be56 (diff) | |
| download | gcc-2620467d87840b3ff231f0150c10c3a7b9167460.tar.gz | |
2010-01-27 Robert Dewar <dewar@adacore.com>
* sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal
changed from Expr to N.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@156278 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sinput.adb | 10 | ||||
| -rw-r--r-- | gcc/ada/sinput.ads | 8 |
3 files changed, 14 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3cc8b528c7c..814961b7a31 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2010-01-27 Robert Dewar <dewar@adacore.com> + + * sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal + changed from Expr to N. + 2010-01-26 Thomas Quinot <quinot@adacore.com> * gnat_ugn.texi: Adjust documentation of -gnatz switches. diff --git a/gcc/ada/sinput.adb b/gcc/ada/sinput.adb index 9f5637d0a32..c2af505e5ba 100644 --- a/gcc/ada/sinput.adb +++ b/gcc/ada/sinput.adb @@ -693,10 +693,10 @@ package body Sinput is -- Sloc_Range -- ---------------- - procedure Sloc_Range (Expr : Node_Id; Min, Max : out Source_Ptr) is + procedure Sloc_Range (N : Node_Id; Min, Max : out Source_Ptr) is function Process (N : Node_Id) return Traverse_Result; - -- Process function for traversing the expression tree + -- Process function for traversing the node tree procedure Traverse is new Traverse_Proc (Process); @@ -722,9 +722,9 @@ package body Sinput is -- Start of processing for Sloc_Range begin - Min := Sloc (Expr); - Max := Sloc (Expr); - Traverse (Expr); + Min := Sloc (N); + Max := Sloc (N); + Traverse (N); end Sloc_Range; ------------------- diff --git a/gcc/ada/sinput.ads b/gcc/ada/sinput.ads index 945d26e7d4a..4f235162c8f 100644 --- a/gcc/ada/sinput.ads +++ b/gcc/ada/sinput.ads @@ -595,10 +595,10 @@ package Sinput is -- makes sure that the lines table for the current source file has an -- appropriate entry for the start of the new physical line. - procedure Sloc_Range (Expr : Node_Id; Min, Max : out Source_Ptr); - -- Given a node for a subexpression, returns the minimum and maximum source - -- locations of any node in the expression subtree. This is not quite the - -- same as the locations of the first and last token in the expresion + procedure Sloc_Range (N : Node_Id; Min, Max : out Source_Ptr); + -- Given a node, returns the minimum and maximum source locations of any + -- node in the syntactic subtree for the node. This is not quite the same + -- as the locations of the first and last token in the node construct -- because parentheses at the outer level do not have a recorded Sloc. -- -- Note: if the tree for the expression contains no "real" Sloc values, |