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

LazDebuggerFp: fix compile with 3.3.1

Browse Source 
git-svn-id: trunk@62350 -
This commit is contained in:
martin 2019-12-08 03:24:37 +00:00
parent 5d2eb7f545
commit ce0adcee42
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,7 +139,7 @@ type
TAddressFrameList = class(specialize TFPGMapObject<TDbgPtr, TFrameList>)
public
function Add(const AKey: TKey): TFrameList; inline;
function Add(const AKey: TDbgPtr): TFrameList; inline;
end;
const
DBGPTRSIZE: array[TFPDMode] of Integer = (4, 8);
@ -615,8 +615,7 @@ end;
{ TFpDebugExceptionStepping.TAddressFrameList }
function TFpDebugExceptionStepping.TAddressFrameList.Add(const AKey: TKey
): TFrameList;
function TFpDebugExceptionStepping.TAddressFrameList.Add(const AKey: TDbgPtr): TFrameList;
begin
Result := TFrameList.Create;
inherited Add(AKey, Result);