paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-27 09:41:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

lazdebuggerfp: clean up

Browse Source 
git-svn-id: trunk@46942 -
This commit is contained in:
mattias 2014-11-21 23:40:26 +00:00
parent 60489e5cc0
commit 2a62d80f76
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, Classes,
SysUtils, fgl, SysUtils,
Forms, Forms,
Maps, Maps,
process, process,
@ -93,7 +93,7 @@ type
function GetClassInstanceName(AnAddr: TDBGPtr): string; function GetClassInstanceName(AnAddr: TDBGPtr): string;
function ReadAnsiString(AnAddr: TDbgPtr): string; function ReadAnsiString(AnAddr: TDbgPtr): string;
function SetSoftwareExceptionBreakpoint: boolean; function SetSoftwareExceptionBreakpoint: boolean;
procedure HandleSoftwareException(var AnExceptionLocation: TDBGLocationRec; var continue: boolean); procedure HandleSoftwareException(out AnExceptionLocation: TDBGLocationRec; var continue: boolean);
procedure FreeDebugThread; procedure FreeDebugThread;
procedure FDbgControllerHitBreakpointEvent(var continue: boolean; const Breakpoint: FpDbgClasses.TDbgBreakpoint); procedure FDbgControllerHitBreakpointEvent(var continue: boolean; const Breakpoint: FpDbgClasses.TDbgBreakpoint);
procedure FDbgControllerCreateProcessEvent(var continue: boolean); procedure FDbgControllerCreateProcessEvent(var continue: boolean);
@ -239,11 +239,11 @@ type
procedure SetBreak; procedure SetBreak;
procedure ResetBreak; procedure ResetBreak;
protected protected
destructor Destroy; override;
procedure DoStateChange(const AOldState: TDBGState); override; procedure DoStateChange(const AOldState: TDBGState); override;
procedure DoEnableChange; override; procedure DoEnableChange; override;
procedure DoChanged; override; procedure DoChanged; override;
public public
destructor Destroy; override;
end; end;
{ TFPBreakpoints } { TFPBreakpoints }
@ -399,8 +399,6 @@ end;
procedure TFPCallStackSupplier.RequestCount(ACallstack: TCallStackBase); procedure TFPCallStackSupplier.RequestCount(ACallstack: TCallStackBase);
var var
Address, Frame, LastFrame: QWord;
Size, Count: integer;
ThreadCallStack: TDbgCallstackEntryList; ThreadCallStack: TDbgCallstackEntryList;
begin begin
if (Debugger = nil) or not(Debugger.State = dsPause) if (Debugger = nil) or not(Debugger.State = dsPause)
@ -736,12 +734,10 @@ var
p: pointer; p: pointer;
ADump, ADump,
AStatement, AStatement,
ASrcFileName, ASrcFileName: string;
APriorFileName: string; ASrcFileLine: integer;
ASrcFileLine,
APriorFileLine: integer;
i,j: Integer; i,j: Integer;
NextSym,Sym: TFpDbgSymbol; Sym: TFpDbgSymbol;
StatIndex: integer; StatIndex: integer;
FirstIndex: integer; FirstIndex: integer;
@ -1316,7 +1312,8 @@ begin
end; end;
end; end;
procedure TFpDebugDebugger.HandleSoftwareException(var AnExceptionLocation: TDBGLocationRec;var continue: boolean); procedure TFpDebugDebugger.HandleSoftwareException(out
AnExceptionLocation: TDBGLocationRec; var continue: boolean);
var var
AnExceptionObjectLocation: TDBGPtr; AnExceptionObjectLocation: TDBGPtr;
ExceptionClass: string; ExceptionClass: string;