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

FpDebug: fix bound-calc for arrar (non Fpc Dwarf)

Browse Source
This commit is contained in:
Martin 2024-06-06 18:00:05 +02:00
parent 951eacad37
commit 82cc65e98b
1 changed files with 9 additions and 2 deletions

11
components/fpdebug/fpdbgdwarf.pas
View File

@ -4022,13 +4022,17 @@ begin
if Result then begin
// calculate from bounds
if RowM then begin
DoGetBounds;
if AnIndex = TypeInfo.NestedSymbolCount - 1 then begin
Result := GetMemberSize(FStrides[AnIndex].Stride);
FStrides[AnIndex].Stride := FStrides[AnIndex].Stride + ExtraDimStride;
end
else begin
Result := HasBounds and GetDimStride(AnIndex + 1, s);
FStrides[AnIndex].Stride := s * Int64(GetMemberCountEx(AnIndex + 1)) + ExtraDimStride;
{$PUSH}{$Q-}
FStrides[AnIndex].Stride := s * Int64(FBounds[AnIndex + 1][1]-FBounds[AnIndex + 1][0] + 1)
+ ExtraDimStride;
{$POP}
end;
end
else begin
@ -4038,7 +4042,10 @@ begin
end
else begin
Result := HasBounds and GetDimStride(AnIndex - 1, s);
FStrides[AnIndex].Stride := s * Int64(GetMemberCountEx(AnIndex - 1)) + ExtraDimStride;
{$PUSH}{$Q-}
FStrides[AnIndex].Stride := s * Int64(FBounds[AnIndex - 1][1]-FBounds[AnIndex - 1][0] + 1)
+ ExtraDimStride;
{$POP}
end;
end;
end;