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

Debugger: Spelling

Browse Source 
git-svn-id: trunk@42988 -
This commit is contained in:
martin 2013-09-27 13:31:29 +00:00
parent 665feafdc0
commit b6abc8d962
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
debugger/gdbmidebugger.pp
View File

@ -1452,13 +1452,13 @@ type
property List: TGDBMIDisassembleResultList read FList;
end;
{ TGDBMIDebuggerCommandDisassembe }
{ TGDBMIDebuggerCommandDisassemble }
TGDBMIDisAssAddrRange = record
FirstAddr, LastAddr: TDBGPtr;
end;
TGDBMIDebuggerCommandDisassembe = class(TGDBMIDebuggerCommand)
TGDBMIDebuggerCommandDisassemble = class(TGDBMIDebuggerCommand)
private
FEndAddr: TDbgPtr;
FLinesAfter: Integer;
@ -1485,7 +1485,7 @@ type
TGDBMIDisassembler = class(TDBGDisassembler)
private
FDisassembleEvalCmdObj: TGDBMIDebuggerCommandDisassembe;
FDisassembleEvalCmdObj: TGDBMIDebuggerCommandDisassemble;
FLastExecAddr, FCancelledAddr: TDBGPtr;
FIsCancelled: Boolean;
procedure DoDisassembleExecuted(Sender: TObject);
@ -3484,12 +3484,12 @@ end;
procedure TGDBMIDisassembler.DoDisassembleExecuted(Sender: TObject);
begin
// Results were added from inside the TGDBMIDebuggerCommandDisassembe object
FLastExecAddr := TGDBMIDebuggerCommandDisassembe(Sender).StartAddr;
if dcsCanceled in TGDBMIDebuggerCommandDisassembe(Sender).SeenStates then begin
// Results were added from inside the TGDBMIDebuggerCommandDisassemble object
FLastExecAddr := TGDBMIDebuggerCommandDisassemble(Sender).StartAddr;
if dcsCanceled in TGDBMIDebuggerCommandDisassemble(Sender).SeenStates then begin
// TODO: fill a block of data with "canceled" info
FIsCancelled := True;
FCancelledAddr := TGDBMIDebuggerCommandDisassembe(Sender).StartAddr;
FCancelledAddr := TGDBMIDebuggerCommandDisassemble(Sender).StartAddr;
end;
FDisassembleEvalCmdObj := nil;
Changed;
@ -3541,7 +3541,7 @@ begin
exit;
end;
FDisassembleEvalCmdObj := TGDBMIDebuggerCommandDisassembe.Create
FDisassembleEvalCmdObj := TGDBMIDebuggerCommandDisassemble.Create
(TGDBMIDebugger(Debugger), EntryRanges, AnAddr, AnAddr, ALinesBefore, ALinesAfter);
FDisassembleEvalCmdObj.OnExecuted := @DoDisassembleExecuted;
FDisassembleEvalCmdObj.OnProgress := @DoDisassembleProgress;
@ -3605,13 +3605,13 @@ end;
{ TGDBMIDebuggerCommandDisassembe }
procedure TGDBMIDebuggerCommandDisassembe.DoProgress;
procedure TGDBMIDebuggerCommandDisassemble.DoProgress;
begin
if assigned(FOnProgress)
then FOnProgress(Self);
end;
function TGDBMIDebuggerCommandDisassembe.DoExecute: Boolean;
function TGDBMIDebuggerCommandDisassemble.DoExecute: Boolean;
type
TAddressValidity =
(avFoundFunction, avFoundRange, avFoundStatement, // known address
@ -4532,7 +4532,7 @@ begin
DoProgress;
end;
constructor TGDBMIDebuggerCommandDisassembe.Create(AOwner: TGDBMIDebugger;
constructor TGDBMIDebuggerCommandDisassemble.Create(AOwner: TGDBMIDebugger;
AKnownRanges: TDBGDisassemblerEntryMap; AStartAddr, AEndAddr: TDbgPtr; ALinesBefore,
ALinesAfter: Integer);
begin
@ -4545,13 +4545,13 @@ begin
FLinesAfter := ALinesAfter;
end;
destructor TGDBMIDebuggerCommandDisassembe.Destroy;
destructor TGDBMIDebuggerCommandDisassemble.Destroy;
begin
FreeAndNil(FRangeIterator);
inherited Destroy;
end;
function TGDBMIDebuggerCommandDisassembe.DebugText: String;
function TGDBMIDebuggerCommandDisassemble.DebugText: String;
begin
Result := Format('%s: FromAddr=%u ToAddr=%u LinesBefore=%d LinesAfter=%d',
[ClassName, FStartAddr, FEndAddr, FLinesBefore, FLinesAfter]);
@ -7775,12 +7775,12 @@ function TGDBMIDebugger.GDBDisassemble(AAddr: TDbgPtr; ABackward: Boolean;
out ANextAddr: TDbgPtr; out ADump, AStatement, AFile: String; out ALine: Integer): Boolean;
var
NewEntryMap: TDBGDisassemblerEntryMap;
CmdObj: TGDBMIDebuggerCommandDisassembe;
CmdObj: TGDBMIDebuggerCommandDisassemble;
Rng: TDBGDisassemblerEntryRange;
i: Integer;
begin
NewEntryMap := TDBGDisassemblerEntryMap.Create(itu8, SizeOf(TDBGDisassemblerEntryRange));
CmdObj := TGDBMIDebuggerCommandDisassembe.Create(Self, NewEntryMap, AAddr, AAddr, -1, 2);
CmdObj := TGDBMIDebuggerCommandDisassemble.Create(Self, NewEntryMap, AAddr, AAddr, -1, 2);
CmdObj.AddReference;
CmdObj.Priority := GDCMD_PRIOR_IMMEDIATE;
QueueCommand(CmdObj);