paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Parameter-type adapted, to clarify what kind of symbol should be passed

Browse Source 
git-svn-id: trunk@63709 -
This commit is contained in:
joost 2020-08-09 21:15:39 +00:00
parent 3a6057e0a3
commit a46dc42df8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbghardcodedfreepascalinfo.pas
View File

@ -149,7 +149,7 @@ type
protected
function GetValueObject: TFpValue; override;
public
constructor Create(const AName: String; AKind: TDbgSymbolKind; ATypeSymbol: TDbgTypeSymbol; AMemLocation: TFpDbgMemLocation);
constructor Create(const AName: String; AKind: TDbgSymbolKind; ATypeSymbol: TFpSymbol; AMemLocation: TFpDbgMemLocation);
end;
{ TDbgHardcodedFPCClassMember }
@ -554,9 +554,10 @@ begin
(Result as TDbgHardcodedVariableValue).SetDataSymbol(Self);
end;
constructor TDbgHardcodedVariableAtMemLocation.Create(const AName: string; AKind: TDbgSymbolKind; ATypeSymbol: TDbgTypeSymbol; AMemLocation: TFpDbgMemLocation);
constructor TDbgHardcodedVariableAtMemLocation.Create(const AName: string; AKind: TDbgSymbolKind; ATypeSymbol: TFpSymbol; AMemLocation: TFpDbgMemLocation);
begin
inherited create(AName, AKind, AMemLocation);
Assert(ATypeSymbol.SymbolType=stType);
// This is strange, as it is already set in the inherited call. But the cache-
// flags are not properly set.
SetAddress(AMemLocation);