paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:39:28 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgdwarf.pas
View File

@ -4022,13 +4022,17 @@ begin
if Result then begin if Result then begin
// calculate from bounds // calculate from bounds
if RowM then begin if RowM then begin
DoGetBounds;
if AnIndex = TypeInfo.NestedSymbolCount - 1 then begin if AnIndex = TypeInfo.NestedSymbolCount - 1 then begin
Result := GetMemberSize(FStrides[AnIndex].Stride); Result := GetMemberSize(FStrides[AnIndex].Stride);
FStrides[AnIndex].Stride := FStrides[AnIndex].Stride + ExtraDimStride; FStrides[AnIndex].Stride := FStrides[AnIndex].Stride + ExtraDimStride;
end end
else begin else begin
Result := HasBounds and GetDimStride(AnIndex + 1, s); 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 end
else begin else begin
@ -4038,7 +4042,10 @@ begin
end end
else begin else begin
Result := HasBounds and GetDimStride(AnIndex - 1, s); 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; end;
end; end;