From: Robert Dewar Date: Wed, 27 Jan 2010 11:37:20 +0000 (+0000) Subject: sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal changed from Expr... X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=5c39d89f38f15656fa6383af8eecbaaf975ec91e;p=gcc.git sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal changed from Expr to N. 2010-01-27 Robert Dewar * sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal changed from Expr to N. From-SVN: r156278 --- 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 + + * sinput.ads, sinput.adb (Sloc_Range): Applies to all nodes, formal + changed from Expr to N. + 2010-01-26 Thomas Quinot * 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,