From: Eric Botcazou Date: Wed, 13 Dec 2017 09:30:25 +0000 (+0000) Subject: * gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0c8af82a15cedbc181df3f0ec09622adffb9ef53;p=gcc.git * gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus. From-SVN: r255603 --- 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