Get call stack in string format
Is there a way to print call stack when printing a message ?
I have a procedure:
procedure DoSomething (myParameter : in MyType)
is
isOk : Boolean := False;
begin
isOk := FunctionReturningFalseWhenError(myParameter);
if not isOk
then
MyDisplayFunction(GNAT.Source_Info.File & ":" & Positive'Image(GNAT.Source_Info.Line) & ": Error with DoSomething");
end if;
end DoSomething;
This procedure is called many times and I want to have more information to print (like call stack).