The debug doesn't generate the info of the error.
Original Reporter info from Mantis: everton
-
Reporter name: Everton Vieira
Original Reporter info from Mantis: everton
- Reporter name: Everton Vieira
Description:
Doesn't matter what compiler option is seted: -g -gl or the dwarf system also, this code doesn't work:
procedure DumpExceptionCallStack(E: Exception);
var
I: Integer;
Frames: PPointer;
Report: string;
begin
Report := 'Program exception! ' + LineEnding +
'Stacktrace:' + LineEnding + LineEnding;
if E <> nil then begin
Report := Report + 'Exception class: ' + E.ClassName + LineEnding +
'Message: ' + E.Message + LineEnding;
end;
Report := Report + BackTraceStrFunc(ExceptAddr);
Frames := ExceptFrames;
for I := 0 to ExceptFrameCount - 1 do
Report := Report + LineEnding + BackTraceStrFunc(Frames[I]);
ShowMessage(Report);
Halt; // End of program execution
end;
Mantis conversion info:
- Mantis ID: 21370
- Version: 0.9.31 (SVN)