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

* (Map_Ada_Subprogram_Identifier): add location in case of

	   error



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1415 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
then
Display_Error ("This is not an Ada subprogram", Fatal => True);
Display_Located_Error
(Loc (E),
"This is not an Ada subprogram", Fatal => True);
end if;
-- Get the subprogram name
......
Markdown is supported
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