From 0c8af82a15cedbc181df3f0ec09622adffb9ef53 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 13 Dec 2017 09:30:25 +0000 Subject: [PATCH] * gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus. From-SVN: r255603 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gcc-interface/trans.c | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 534b8cf92a1..cf195b9b189 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2017-12-13 Eric Botcazou + + * gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus. + 2017-12-13 Eric Botcazou * gcc-interface/trans.c (process_freeze_entity): Be prepared for a diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 7a83acfd0b4..0cf37f1c222 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -3773,7 +3773,8 @@ Subprogram_Body_to_gnu (Node_Id gnat_node) } /* Set the line number in the decl to correspond to that of the body. */ - Sloc_to_locus (Sloc (gnat_node), &locus); + if (!Sloc_to_locus (Sloc (gnat_node), &locus)) + locus = input_location; DECL_SOURCE_LOCATION (gnu_subprog_decl) = locus; /* If the body comes from an expression function, arrange it to be inlined -- 2.30.2