paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 08:29:06 +02: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
Classes,
SysUtils, fgl,
SysUtils,
Forms,
Maps,
process,
@ -93,7 +93,7 @@ type
function GetClassInstanceName(AnAddr: TDBGPtr): string;
function ReadAnsiString(AnAddr: TDbgPtr): string;
function SetSoftwareExceptionBreakpoint: boolean;
procedure HandleSoftwareException(var AnExceptionLocation: TDBGLocationRec; var continue: boolean);
procedure HandleSoftwareException(out AnExceptionLocation: TDBGLocationRec; var continue: boolean);
procedure FreeDebugThread;
procedure FDbgControllerHitBreakpointEvent(var continue: boolean; const Breakpoint: FpDbgClasses.TDbgBreakpoint);
procedure FDbgControllerCreateProcessEvent(var continue: boolean);
@ -239,11 +239,11 @@ type
procedure SetBreak;
procedure ResetBreak;
protected
destructor Destroy; override;
procedure DoStateChange(const AOldState: TDBGState); override;
procedure DoEnableChange; override;
procedure DoChanged; override;
public
destructor Destroy; override;
end;
{ TFPBreakpoints }
@ -399,8 +399,6 @@ end;
procedure TFPCallStackSupplier.RequestCount(ACallstack: TCallStackBase);
var
Address, Frame, LastFrame: QWord;
Size, Count: integer;
ThreadCallStack: TDbgCallstackEntryList;
begin
if (Debugger = nil) or not(Debugger.State = dsPause)
@ -736,12 +734,10 @@ var
p: pointer;
ADump,
AStatement,
ASrcFileName,
APriorFileName: string;
ASrcFileLine,
APriorFileLine: integer;
ASrcFileName: string;
ASrcFileLine: integer;
i,j: Integer;
NextSym,Sym: TFpDbgSymbol;
Sym: TFpDbgSymbol;
StatIndex: integer;
FirstIndex: integer;
@ -1316,7 +1312,8 @@ begin
end;
end;
procedure TFpDebugDebugger.HandleSoftwareException(var AnExceptionLocation: TDBGLocationRec;var continue: boolean);
procedure TFpDebugDebugger.HandleSoftwareException(out
AnExceptionLocation: TDBGLocationRec; var continue: boolean);
var
AnExceptionObjectLocation: TDBGPtr;
ExceptionClass: string;