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/ada/sinput.adb | |
| 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/ada/sinput.adb')
| -rw-r--r-- | gcc/ada/sinput.adb | 10 |
1 files changed, 5 insertions, 5 deletions
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; ------------------- |