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

Merged revision(s) 64960 #bfc0e25216 from trunk:

Browse Source 
GdbmiDebugger: fix "array of string" for gdb 10.1 / use (foo^+0) instead of foo^  Issue #0038674
........

git-svn-id: branches/fixes_2_0@64964 -
This commit is contained in:
martin 2021-04-11 00:06:20 +00:00
parent 71b130e9da
commit a616a8078f
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/lazdebuggergdbmi/gdbtypeinfo.pp
View File

@ -1247,8 +1247,14 @@ begin
PCastCnt := j;
end
else
if (PCastCnt = 0) then
if (PCastCnt = 0) then begin
Result := Result + '^';
if ((IdxPart.PTypeReq.Result.Kind = ptprkSimple) and (ptprfPointer in IdxPart.PTypeReq.Result.Flags)) or
//=[ptprfPointer, ptprfDynArray, ptprfNoBounds, ptprfDeclarationInBrackets] Kind=ptprkArray Nam
((IdxPart.PTypeReq.Result.Kind = ptprkArray) and (IdxPart.PTypeReq.Result.Flags * [ptprfPointer, ptprfDynArray, ptprfNoBounds] = [ptprfPointer, ptprfDynArray, ptprfNoBounds]))
then
Result := '('+Result + '+0)';
end;
end;
if toSkipArrayIdx in AOpts