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

debugger: format output of generic pointer

Browse Source 
git-svn-id: trunk@23059 -
This commit is contained in:
paul 2009-12-10 08:07:17 +00:00
parent ace509e462
commit 55f665674a
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
debugger/gdbmidebugger.pp
View File

@ -2589,14 +2589,18 @@ begin
if Addr = 0
then AResult := 'nil';
if (Length(S) > 0) and (S <> 'pointer')
if (Length(S) > 0)
then begin
if S[1] = 't'
if (S <> 'pointer')
then begin
S[1] := 'T';
if Length(S) > 1 then S[2] := UpperCase(S[2])[1];
end;
AResult := PascalizePointer(AResult, '^' + S);
if S[1] = 't'
then begin
S[1] := 'T';
if Length(S) > 1 then S[2] := UpperCase(S[2])[1];
end;
AResult := PascalizePointer(AResult, '^' + S);
end
else AResult := PascalizePointer(AResult);
end;
end;