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

FpDebug: fix :refcnt for fpc 3.3.1

Browse Source
This commit is contained in:
Martin 2023-12-02 14:05:58 +01:00
parent ef8b5603be
commit c398363932
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -1886,8 +1886,15 @@ begin
if not IsReadableLoc(Addr) then
exit;
Addr:= Addr - (AddressSize * 2);
Result := Context.ReadSignedInt(Addr, SizeVal(AddressSize), ARefCount);
if TFpDwarfFreePascalSymbolClassMap(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion >= $030301
then begin
Addr:= Addr - AddressSize - 4;
Result := Context.ReadSignedInt(Addr, SizeVal(4), ARefCount);
end
else begin
Addr:= Addr - (AddressSize * 2);
Result := Context.ReadSignedInt(Addr, SizeVal(AddressSize), ARefCount);
end;
end;
function TFpValueDwarfV3FreePascalString.ObtainDynamicCodePage(Addr: TFpDbgMemLocation; out