paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:19:23 +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 protected
function GetValueObject: TFpValue; override; function GetValueObject: TFpValue; override;
public public
constructor Create(const AName: String; AKind: TDbgSymbolKind; ATypeSymbol: TDbgTypeSymbol; AMemLocation: TFpDbgMemLocation); constructor Create(const AName: String; AKind: TDbgSymbolKind; ATypeSymbol: TFpSymbol; AMemLocation: TFpDbgMemLocation);
end; end;
{ TDbgHardcodedFPCClassMember } { TDbgHardcodedFPCClassMember }
@ -554,9 +554,10 @@ begin
(Result as TDbgHardcodedVariableValue).SetDataSymbol(Self); (Result as TDbgHardcodedVariableValue).SetDataSymbol(Self);
end; 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 begin
inherited create(AName, AKind, AMemLocation); inherited create(AName, AKind, AMemLocation);
Assert(ATypeSymbol.SymbolType=stType);
// This is strange, as it is already set in the inherited call. But the cache- // This is strange, as it is already set in the inherited call. But the cache-
// flags are not properly set. // flags are not properly set.
SetAddress(AMemLocation); SetAddress(AMemLocation);