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

FpDebug: fix :refcnt for fpc 3.3.1

Browse Source 
(cherry picked from commit c398363932)
This commit is contained in:
Martin 2023-12-02 14:05:58 +01:00
parent 54ffa1df0e
commit 45e39252e1
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 if not IsReadableLoc(Addr) then
exit; exit;
Addr:= Addr - (AddressSize * 2); if TFpDwarfFreePascalSymbolClassMap(TypeInfo.CompilationUnit.DwarfSymbolClassMap).FCompilerVersion >= $030301
Result := Context.ReadSignedInt(Addr, SizeVal(AddressSize), ARefCount); 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; end;
function TFpValueDwarfV3FreePascalString.ObtainDynamicCodePage(Addr: TFpDbgMemLocation; out function TFpValueDwarfV3FreePascalString.ObtainDynamicCodePage(Addr: TFpDbgMemLocation; out