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

FpDebug: Rework TFpValueDwarfPointer.GetDataAddress, the data address is the pointer, not the deref-address.

Browse Source 
git-svn-id: trunk@61746 -
This commit is contained in:
martin 2019-08-22 21:33:24 +00:00
parent c66f2fd121
commit c69090c512
2 changed files with 30 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
components/fpdebug/fpdbgdwarf.pas
View File

@ -293,6 +293,7 @@ type
private
FLastAddrMember: TFpValue;
FPointetToAddr: TFpDbgMemLocation;
function GetDerefAddress: TFpDbgMemLocation;
protected
function GetAsCardinal: QWord; override;
function GetFieldFlags: TFpValueFieldFlags; override;
@ -2032,11 +2033,27 @@ end;
{ TFpValueDwarfPointer }
function TFpValueDwarfPointer.GetDerefAddress: TFpDbgMemLocation;
begin
if doneAddr in FEvaluated then begin
Result := FPointetToAddr;
exit;
end;
Include(FEvaluated, doneAddr);
if (FSize <= 0) then
Result := InvalidLoc
else
if not MemManager.ReadAddress(OrdOrDataAddr, Context.SizeOfAddress, Result) then
FLastError := MemManager.LastError;
FPointetToAddr := Result;
end;
function TFpValueDwarfPointer.GetAsCardinal: QWord;
var
a: TFpDbgMemLocation;
begin
a := GetDataAddress;
a := GetDerefAddress;
if IsTargetAddr(a) then
Result := LocToAddr(a)
else
@ -2053,27 +2070,17 @@ begin
t := TypeInfo;
if (t <> nil) then t := t.TypeInfo;
if (t <> nil) and (t.Kind = skChar) and IsReadableMem(DataAddress) then // pchar
if (t <> nil) and (t.Kind = skChar) and IsReadableMem(GetDerefAddress) then // pchar
Result := Result + [svfString]; // data address
end;
function TFpValueDwarfPointer.GetDataAddress: TFpDbgMemLocation;
begin
if doneAddr in FEvaluated then begin
Result := FPointetToAddr;
exit;
end;
Include(FEvaluated, doneAddr);
if (FSize <= 0) then
Result := InvalidLoc
else
begin
if not MemManager.ReadAddress(OrdOrDataAddr, FSize, Result) then
FLastError := MemManager.LastError;
end;
FPointetToAddr := Result;
if not GetDwarfDataAddress(Result, Owner) then
Result := InvalidLoc;
end;
function TFpValueDwarfPointer.GetAsString: AnsiString;
@ -2086,10 +2093,10 @@ begin
if t.Size = 2 then
Result := GetAsWideString
else
if (MemManager <> nil) and (t <> nil) and (t.Kind = skChar) and IsReadableMem(DataAddress) then begin // pchar
if (MemManager <> nil) and (t <> nil) and (t.Kind = skChar) and IsReadableMem(GetDerefAddress) then begin // pchar
SetLength(Result, 2000);
i := 2000;
while (i > 0) and (not MemManager.ReadMemory(DataAddress, i, @Result[1])) do
while (i > 0) and (not MemManager.ReadMemory(GetDerefAddress, i, @Result[1])) do
i := i div 2;
SetLength(Result,i);
i := pos(#0, Result);
@ -2108,10 +2115,10 @@ begin
t := TypeInfo;
if (t <> nil) then t := t.TypeInfo;
// skWideChar ???
if (MemManager <> nil) and (t <> nil) and (t.Kind = skChar) and IsReadableMem(DataAddress) then begin // pchar
if (MemManager <> nil) and (t <> nil) and (t.Kind = skChar) and IsReadableMem(GetDerefAddress) then begin // pchar
SetLength(Result, 2000);
i := 4000; // 2000 * 16 bit
while (i > 0) and (not MemManager.ReadMemory(DataAddress, i, @Result[1])) do
while (i > 0) and (not MemManager.ReadMemory(GetDerefAddress, i, @Result[1])) do
i := i div 2;
SetLength(Result, i div 2);
i := pos(#0, Result);
@ -2142,7 +2149,7 @@ begin
{$PUSH}{$R-}{$Q-} // TODO: check overflow
if ti <> nil then
AIndex := AIndex * ti.Size;
addr := DataAddress;
addr := GetDerefAddress;
if not IsTargetAddr(addr) then begin
FLastError := CreateError(fpErrAnyError, ['Internal dereference error']);
exit;
@ -3982,6 +3989,8 @@ function TFpSymbolDwarfTypePointer.GetDataAddressNext(AValueObj: TFpValueDwarf;
var
t: TFpDbgMemLocation;
begin
if not IsInternalPointer then exit(True);
t := AValueObj.DataAddressCache[ATargetCacheIndex];
if IsInitializedLoc(t) then begin
AnAddress := t;

2
components/fpdebug/fppascalparser.pas
View File

@ -757,6 +757,8 @@ end;
function TFpPasParserValueDerefPointer.GetAddress: TFpDbgMemLocation;
begin
Result := FValue.DataAddress;
Result := Context.MemManager.ReadAddress(Result, Context.SizeOfAddress);
if FAddressOffset <> 0 then begin
assert(IsTargetAddr(Result ), 'TFpPasParserValueDerefPointer.GetAddress: TargetLoc(Result)');
if IsTargetAddr(Result) then