Message ID | 1723612.iInQtfIT1g@polaris |
---|---|
State | New |
Headers | show |
Series | [Ada] Make sure subprogram locus is initialized | expand |
Index: gcc-interface/trans.c =================================================================== --- gcc-interface/trans.c (revision 255601) +++ gcc-interface/trans.c (working copy) @@ -3773,7 +3773,8 @@ Subprogram_Body_to_gnu (Node_Id gnat_nod } /* 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