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

FPDebug: resolve compile issue with circular unit

Browse Source 
git-svn-id: trunk@43293 -
This commit is contained in:
martin 2013-10-20 16:42:33 +00:00
parent 718a99efdd
commit 4a14f0fd45
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/fpdebug/fpdbgclasses.pp
View File

@ -33,6 +33,7 @@
}
unit FpDbgClasses;
{$mode objfpc}{$H+}
interface
uses
@ -136,8 +137,8 @@ type
FAddress: TDbgPtr;
FSize: Integer;
function GetSymbolType: TDbgSymbolType; inline;
function GetKind: TDbgSymbolKind; inline;
function GetSymbolType: TDbgSymbolType; //inline;
function GetKind: TDbgSymbolKind; //inline;
function GetName: String;
function GetSize: Integer;
function GetAddress: TDbgPtr;
@ -327,8 +328,8 @@ function dbgs(ADbgSymbolKind: TDbgSymbolKind): String; overload;
implementation
//uses
// FpDbgDwarf;
uses
FpDbgDwarf;
procedure LogLastError;
begin
@ -439,8 +440,8 @@ procedure TDbgInstance.LoadInfo;
begin
FLoader := TDbgImageLoader.Create(FModuleHandle);
assert(false, 'fpc will not compile this');
//FDbgInfo := TDbgDwarf.Create(FLoader);
//TDbgDwarf(FDbgInfo).LoadCompilationUnits;
FDbgInfo := TDbgDwarf.Create(FLoader);
TDbgDwarf(FDbgInfo).LoadCompilationUnits;
end;
function TDbgInstance.RemoveBreak(const AFileName: String; ALine: Cardinal): Boolean;