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

FPDebugger: Fix compilation of testcase

Browse Source 
git-svn-id: trunk@57781 -
This commit is contained in:
martin 2018-05-03 18:43:32 +00:00
parent 75193aadbe
commit cf72a4270c
2 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/test/testhelperclasses.pas
View File

@ -827,7 +827,7 @@ end;
constructor TTestDummyFileSource.Create;
begin
inherited Create(nil, False);
inherited Create(nil, nil, False);
FSections := TStringList.Create;
end;

18
components/fpdebug/test/testtypeinfo.pas
View File

@ -5,9 +5,10 @@ unit TestTypeInfo;
interface
uses
FpPascalParser, FpDbgDwarf, FpDbgInfo, FpdMemoryTools, FpErrorMessages, LazLoggerBase,
LazUTF8, sysutils, fpcunit, testregistry, TestHelperClasses, TestDwarfSetup1,
TestDwarfSetupBasic, DbgIntfBaseTypes, TestDwarfSetupArray;
FpPascalParser, FpDbgDwarf, FpDbgInfo, FpdMemoryTools, FpErrorMessages,
FpDbgLoader, LazLoggerBase, LazUTF8, sysutils, fpcunit, testregistry,
TestHelperClasses, TestDwarfSetup1, TestDwarfSetupBasic, DbgIntfBaseTypes,
TestDwarfSetupArray;
type
@ -24,6 +25,7 @@ type
FCurrentContext: TFpDbgInfoContext;
FExpression: TFpPascalExpression;
FImageLoader: TTestDummyImageLoader;
FImageLoaderList: TDbgImageLoaderList;
FMemReader: TTestMemReader;
FMemManager: TFpDbgMemManager;
@ -320,9 +322,11 @@ end;
procedure TTestTypeInfo.InitDwarf(ALoaderClass: TTestDummyImageLoaderClass);
begin
FImageLoader := ALoaderClass.Create;
FImageLoaderList := TDbgImageLoaderList.Create(True);
FImageLoaderList.Add(FImageLoader);
FMemReader := TTestMemReader.Create;
FMemManager := TFpDbgMemManager.Create(FMemReader, TFpDbgMemConvertorLittleEndian.Create);
FDwarfInfo := TFpDwarfInfo.Create(FImageLoader);
FDwarfInfo := TFpDwarfInfo.Create(FImageLoaderList);
FDwarfInfo.MemManager := FMemManager;
FDwarfInfo.LoadCompilationUnits;
end;
@ -331,6 +335,7 @@ procedure TTestTypeInfo.SetUp;
begin
inherited SetUp;
FImageLoader := nil;
FImageLoaderList := nil;
FMemReader := nil;
FMemManager := nil;
FDwarfInfo := nil;
@ -344,7 +349,7 @@ begin
FCurrentContext.ReleaseReference;
FExpression.Free;
FDwarfInfo.Free;
FImageLoader.Free;
FImageLoaderList.Free;
FMemReader.Free;
if FMemManager <> nil then
FMemManager.TargetMemConvertor.Free;
@ -788,6 +793,9 @@ begin
ExpResult(svfOrdinal, PtrUInt (ImgLoader.TestStackFrame.Obj1));
case i of
5,6: ExpResult(svfDataSize, TObject.InstanceSize);
// TODO: next line fails in 64 bit, as dummy debug info was created for 32 bit
// in 32 bit the Obj has a size of 32 bytes.
// TODO: this also depends on FPC version
else ExpResult(svfDataSize, ImgLoader.TestStackFrame.Obj1.InstanceSize);
end;