gcc/ada * gcc-interface/utils2.c (build_call_raise): Remove use of input_line macro. (build_call_raise_range): Likewise. (build_call_raise_column): Likewise. --- gcc/ada/gcc-interface/utils2.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c index 184a223..224a87d 100644 --- a/gcc/ada/gcc-interface/utils2.c +++ b/gcc/ada/gcc-interface/utils2.c @@ -1715,7 +1715,8 @@ build_call_raise (int msg, Node_Id gnat_node, char kind) filename = build_string (len, str); line_number = (gnat_node != Empty && Sloc (gnat_node) != No_Location) - ? Get_Logical_Line_Number (Sloc(gnat_node)) : input_line; + ? Get_Logical_Line_Number (Sloc(gnat_node)) + : LOCATION_LINE (input_location); TREE_TYPE (filename) = build_array_type (unsigned_char_type_node, build_index_type (size_int (len))); @@ -1761,7 +1762,7 @@ build_call_raise_range (int msg, Node_Id gnat_node, } else { - line_number = input_line; + line_number = LOCATION_LINE (input_location); column_number = 0; } @@ -1811,7 +1812,7 @@ build_call_raise_column (int msg, Node_Id gnat_node) } else { - line_number = input_line; + line_number = LOCATION_LINE (input_location); column_number = 0; } -- 1.7.11.7