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