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

1 files changed, 5 insertions, 5 deletions

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;
 
    -------------------