diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-01-27 11:37:20 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-01-27 12:37:20 +0100 |
| commit | 5c39d89f38f15656fa6383af8eecbaaf975ec91e (patch) | |
| tree | a7212caa578ac383bb2233f213ce576653449b4a /gcc | |
| parent | 677b1f513150d0c1d52b4e18e817fb885b4158f4 (diff) | |
| download | gcc-5c39d89f38f15656fa6383af8eecbaaf975ec91e.zip gcc-5c39d89f38f15656fa6383af8eecbaaf975ec91e.tar.gz gcc-5c39d89f38f15656fa6383af8eecbaaf975ec91e.tar.bz2 | |
sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal changed from Expr to N.
2010-01-27 Robert Dewar <dewar@adacore.com>
* sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal
changed from Expr to N.
From-SVN: r156278
Diffstat (limited to 'gcc')
| -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 3cc8b52..814961b 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 9f5637d..c2af505 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 945d26e..4f23516 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, |