paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 20:41:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fixed spelling / thanks to ccrause

Browse Source
This commit is contained in:
Martin 2023-01-08 19:33:20 +01:00
parent f09a59cb1c
commit c59f34e9ba
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/fpdebug/fpdbgclasses.pp
View File

@ -374,8 +374,8 @@ type
constructor Create(AProcess: TDbgProcess); constructor Create(AProcess: TDbgProcess);
destructor Destroy; override; destructor Destroy; override;
procedure Clear; reintroduce; procedure Clear; reintroduce;
procedure AddLocotion(const ALocation: TDBGPtr; const AInternalBreak: TFpInternalBreakpoint; AnIgnoreIfExists: Boolean = True); procedure AddLocation(const ALocation: TDBGPtr; const AInternalBreak: TFpInternalBreakpoint; AnIgnoreIfExists: Boolean = True);
procedure RemoveLocotion(const ALocation: TDBGPtr; const AInternalBreak: TFpInternalBreakpoint); procedure RemoveLocation(const ALocation: TDBGPtr; const AInternalBreak: TFpInternalBreakpoint);
// When the debugger modifies the debuggee's code, it might be that the // When the debugger modifies the debuggee's code, it might be that the
// original value underneeth the breakpoint has to be changed. This function // original value underneeth the breakpoint has to be changed. This function
// makes this possible. // makes this possible.
@ -1096,14 +1096,14 @@ begin
inherited Destroy; inherited Destroy;
end; end;
procedure TBreakLocationMap.AddLocotion(const ALocation: TDBGPtr; procedure TBreakLocationMap.AddLocation(const ALocation: TDBGPtr;
const AInternalBreak: TFpInternalBreakpoint; AnIgnoreIfExists: Boolean); const AInternalBreak: TFpInternalBreakpoint; AnIgnoreIfExists: Boolean);
var var
LocData: PInternalBreakLocationEntry; LocData: PInternalBreakLocationEntry;
Len, i: Integer; Len, i: Integer;
BList: TFpInternalBreakpointArray; BList: TFpInternalBreakpointArray;
begin begin
{$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadIdNotMain('TBreakLocationMap.AddLocotion');{$ENDIF} {$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadIdNotMain('TBreakLocationMap.AddLocation');{$ENDIF}
LocData := GetDataPtr(ALocation); LocData := GetDataPtr(ALocation);
if LocData <> nil then begin if LocData <> nil then begin
@ -1144,13 +1144,13 @@ begin
Dispose(LocData); Dispose(LocData);
end; end;
procedure TBreakLocationMap.RemoveLocotion(const ALocation: TDBGPtr; procedure TBreakLocationMap.RemoveLocation(const ALocation: TDBGPtr;
const AInternalBreak: TFpInternalBreakpoint); const AInternalBreak: TFpInternalBreakpoint);
var var
LocData: PInternalBreakLocationEntry; LocData: PInternalBreakLocationEntry;
Len, i: Integer; Len, i: Integer;
begin begin
{$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadIdNotMain('TBreakLocationMap.RemoveLocotion');{$ENDIF} {$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadIdNotMain('TBreakLocationMap.RemoveLocation');{$ENDIF}
LocData := GetDataPtr(ALocation); LocData := GetDataPtr(ALocation);
if LocData = nil then begin if LocData = nil then begin
DebugLn(DBG_WARNINGS or DBG_BREAKPOINTS, ['Missing breakpoint for loc ', FormatAddress(ALocation)]); DebugLn(DBG_WARNINGS or DBG_BREAKPOINTS, ['Missing breakpoint for loc ', FormatAddress(ALocation)]);
@ -2225,7 +2225,7 @@ end;
procedure TDbgProcess.ClearAddedAndRemovedLibraries; procedure TDbgProcess.ClearAddedAndRemovedLibraries;
begin begin
{$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadIdNotMain('TBreakLocationMap.AddLocotion');{$ENDIF} {$IFDEF FPDEBUG_THREAD_CHECK}AssertFpDebugThreadIdNotMain('TBreakLocationMap.ClearAddedAndRemovedLibraries');{$ENDIF}
FLibMap.ClearAddedAndRemovedLibraries; FLibMap.ClearAddedAndRemovedLibraries;
end; end;
@ -3493,7 +3493,7 @@ begin
exit; exit;
FLocation[i] := FLocation[l]; FLocation[i] := FLocation[l];
SetLength(FLocation, l); SetLength(FLocation, l);
FProcess.FBreakMap.RemoveLocotion(ALocation, Self); FProcess.FBreakMap.RemoveLocation(ALocation, Self);
end; end;
procedure TFpInternalBreakpoint.RemoveAllAddresses; procedure TFpInternalBreakpoint.RemoveAllAddresses;
@ -3510,7 +3510,7 @@ begin
if FProcess = nil then if FProcess = nil then
exit; exit;
for i := 0 to High(FLocation) do for i := 0 to High(FLocation) do
FProcess.FBreakMap.RemoveLocotion(FLocation[i], Self); FProcess.FBreakMap.RemoveLocation(FLocation[i], Self);
end; end;
procedure TFpInternalBreakpoint.SetBreak; procedure TFpInternalBreakpoint.SetBreak;
@ -3521,7 +3521,7 @@ begin
if FProcess = nil then if FProcess = nil then
exit; exit;
for i := 0 to High(FLocation) do for i := 0 to High(FLocation) do
FProcess.FBreakMap.AddLocotion(FLocation[i], Self, True); FProcess.FBreakMap.AddLocation(FLocation[i], Self, True);
end; end;
{ TFpInternalWatchpoint } { TFpInternalWatchpoint }