DBG: Improve (pascalize) pointer, if DynArray shows as pointer

git-svn-id: trunk@32163 -

debugger/debugger.pp

@@ -686,7 +686,8 @@ type
   type
   TDBGSymbolKind = (skClass, skRecord, skEnum, skSet, skProcedure, skFunction, skSimple, skPointer, skVariant);
   TDBGSymbolAttribute = (saRefParam,        // var, const, constref passed by reference
-                         saInternalPointer // PointerToObject
+                         saInternalPointer, // PointerToObject
+                         saArray, saDynArray
                         );
   TDBGSymbolAttributes = set of TDBGSymbolAttribute;
   TDBGFieldLocation = (flPrivate, flProtected, flPublic, flPublished);

debugger/gdbmidebugger.pp

@@ -10782,6 +10782,9 @@ function TGDBMIDebuggerCommandEvaluate.DoExecute: Boolean;
         else
         if (ResultInfo.TypeName = '&ShortString') then
           FTextValue := GetStrValue('ShortString(%s)', [AnExpression]) // we have an address here, so we need to typecast
+        else
+        if saDynArray in ResultInfo.Attributes then
+          FTextValue := PascalizePointer(FTextValue)
         else
           FTextValue := FTextValue;
       end;

debugger/gdbtypeinfo.pp

@@ -1248,6 +1248,9 @@ var
     end;
 
     FKind := skSimple;
+    if (ptprfDynArray in PTypeResult.Flags)
+    then include(FAttributes, saDynArray)
+    else include(FAttributes, saArray);
 
     if not(gtcfSkipTypeName in FCreationFlags) then begin
       if not RequireRequests([gptrWhatisExpr])