Commit 4660e004 authored by hugues.jerome's avatar hugues.jerome
Browse files

* (Map_Ada_Subprogram_Identifier): add location in case of


git-svn-id: 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent a0595e2b
......@@ -1407,7 +1407,9 @@ package body Ocarina.Backends.Utils is
if Is_Subprogram (E)
and then Get_Source_Language (E) /= Language_Ada_95
Display_Error ("This is not an Ada subprogram", Fatal => True);
(Loc (E),
"This is not an Ada subprogram", Fatal => True);
end if;
-- Get the subprogram name
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment