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

fpdebug: less hints

Browse Source 
git-svn-id: trunk@59210 -
This commit is contained in:
mattias 2018-10-01 15:10:56 +00:00
parent 14c6216cd1
commit 7fde8c4b92
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpimgreadermacho.pas
View File

@ -38,11 +38,11 @@ type
function GetSectionIndex(const SectionName: AnsiString): Integer; function GetSectionIndex(const SectionName: AnsiString): Integer;
function GetSection(const AName: String): PDbgImageSection; override; function GetSection(const AName: String): PDbgImageSection; override;
procedure AddSubFilesToLoaderList(ALoaderList: TObject; PrimaryLoader: TObject); override;
public public
class function isValid(ASource: TDbgFileLoader): Boolean; override; class function isValid(ASource: TDbgFileLoader): Boolean; override;
class function UserName: AnsiString; override; class function UserName: AnsiString; override;
class procedure LoadSubFiles(ASubFiles: TStrings; ALoaderList: TFPObjectList); class procedure LoadSubFiles(ASubFiles: TStrings; ALoaderList: TFPObjectList);
procedure AddSubFilesToLoaderList(ALoaderList: TObject; PrimaryLoader: TObject); override;
procedure ParseSymbolTable(AfpSymbolInfo: TfpSymbolList); override; procedure ParseSymbolTable(AfpSymbolInfo: TfpSymbolList); override;
public public
constructor Create(ASource: TDbgFileLoader; ADebugMap: TObject; OwnSource: Boolean); override; constructor Create(ASource: TDbgFileLoader; ADebugMap: TObject; OwnSource: Boolean); override;