From 0c8af82a15cedbc181df3f0ec09622adffb9ef53 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 13 Dec 2017 09:30:25 +0000 Subject: * gcc-interface/trans.c (Subprogram_Body_to_gnu): Initialize locus. From-SVN: r255603 --- gcc/ada/gcc-interface/trans.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/ada/gcc-interface') diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 7a83acf..0cf37f1 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 -- cgit v1.1