paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

added DumpStack procedure: it writes a back trace to the console / debugtxt

Browse Source 
git-svn-id: trunk@7632 -
This commit is contained in:
vincents 2005-09-06 09:01:00 +00:00
parent 48d7da49f8
commit 7f0c6e6127
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/lclproc.pas
View File

@ -110,6 +110,7 @@ function StrToDouble(const s: string): double;
// debugging
procedure RaiseGDBException(const Msg: string);
procedure DumpExceptionBackTrace;
procedure DumpStack;
procedure DebugLn(const S: String; Args: array of const);
procedure DebugLn;
@ -600,6 +601,13 @@ begin
DebugLn(BackTraceStrFunc(Frames[FrameNumber]));
end;
procedure DumpStack;
Begin
if assigned(DebugText) then
Dump_Stack(DebugText^, get_frame);
End;
procedure MoveRect(var ARect: TRect; x, y: Integer);
begin
inc(ARect.Right,x-ARect.Left);