paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 11:29:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* add DumpExceptionBackTrace

Browse Source 
git-svn-id: trunk@9071 -
This commit is contained in:
peter 2007-11-02 22:08:17 +00:00
parent f5455d6358
commit 43c446e742
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/system.inc
View File

@ -967,6 +967,25 @@ Begin
end;
{$endif FPC_HAS_FEATURE_EXCEPTIONS}
End;
{$ifdef FPC_HAS_FEATURE_EXCEPTIONS}
procedure DumpExceptionBackTrace(var f:text);
var
FrameNumber,
FrameCount : longint;
Frames : PPointer;
begin
if RaiseList=nil then
exit;
WriteLn(f,BackTraceStrFunc(RaiseList^.Addr));
FrameCount:=RaiseList^.Framecount;
Frames:=RaiseList^.Frames;
for FrameNumber := 0 to FrameCount-1 do
WriteLn(f,BackTraceStrFunc(Frames[FrameNumber]));
end;
{$endif FPC_HAS_FEATURE_EXCEPTIONS}
{$endif FPC_HAS_FEATURE_CONSOLEIO}

3
rtl/inc/systemh.inc
View File

@ -786,6 +786,9 @@ Function ParamStr(l:Longint):string;
{$ifdef FPC_HAS_FEATURE_CONSOLEIO}
Procedure Dump_Stack(var f : text;bp:pointer);
{$ifdef FPC_HAS_FEATURE_EXCEPTIONS}
procedure DumpExceptionBackTrace(var f:text);
{$endif FPC_HAS_FEATURE_EXCEPTIONS}
{$endif FPC_HAS_FEATURE_CONSOLEIO}
Procedure RunError(w:Word);