+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.
-- 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);
-- 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;
-------------------
-- 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,