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

lazdebuggerfp: fixed typo

Browse Source 
git-svn-id: trunk@46947 -
This commit is contained in:
mattias 2014-11-21 23:54:59 +00:00
parent 3037a9fb1a
commit 858999dd3e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/debuggerintf/dbgintfdebuggerbase.pp
View File

@ -836,7 +836,7 @@ type
function Count: Integer; virtual;
function GetAddress(const {%H-}AIndex: Integer; const {%H-}ALine: Integer): TDbgPtr; virtual;
function GetAddress(const ASource: String; const ALine: Integer): TDbgPtr;
function GetInfo({%H-}AAdress: TDbgPtr; out {%H-}ASource, {%H-}ALine, {%H-}AOffset: Integer): Boolean; virtual;
function GetInfo({%H-}AAddress: TDbgPtr; out {%H-}ASource, {%H-}ALine, {%H-}AOffset: Integer): Boolean; virtual;
function IndexOf(const {%H-}ASource: String): integer; virtual;
procedure Request(const {%H-}ASource: String); virtual;
procedure Cancel(const {%H-}ASource: String); virtual;
@ -3902,7 +3902,7 @@ begin
else Result := GetAddress(idx, ALine);
end;
function TBaseLineInfo.GetInfo(AAdress: TDbgPtr; out ASource, ALine, AOffset: Integer): Boolean;
function TBaseLineInfo.GetInfo(AAddress: TDbgPtr; out ASource, ALine, AOffset: Integer): Boolean;
begin
Result := False;
end;

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

@ -173,7 +173,7 @@ type
destructor Destroy; override;
function Count: Integer; override;
function GetAddress(const AIndex: Integer; const ALine: Integer): TDbgPtr; override;
function GetInfo({%H-}AAdress: TDbgPtr; out {%H-}ASource, {%H-}ALine, {%H-}AOffset: Integer): Boolean; override;
function GetInfo({%H-}AAddress: TDbgPtr; out {%H-}ASource, {%H-}ALine, {%H-}AOffset: Integer): Boolean; override;
function IndexOf(const ASource: String): integer; override;
procedure Request(const ASource: String); override;
procedure Cancel(const {%H-}ASource: String); override;
@ -908,7 +908,7 @@ begin
Result := Map^.GetAddressForLine(ALine);
end;
function TFpLineInfo.GetInfo(AAdress: TDbgPtr; out ASource, ALine,
function TFpLineInfo.GetInfo(AAddress: TDbgPtr; out ASource, ALine,
AOffset: Integer): Boolean;
begin
Result := False;