paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 20:19:14 +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

6
debugger/gdbmidebugger.pp
View File

@ -2589,7 +2589,9 @@ begin
if Addr = 0 if Addr = 0
then AResult := 'nil'; then AResult := 'nil';
if (Length(S) > 0) and (S <> 'pointer') if (Length(S) > 0)
then begin
if (S <> 'pointer')
then begin then begin
if S[1] = 't' if S[1] = 't'
then begin then begin
@ -2597,6 +2599,8 @@ begin
if Length(S) > 1 then S[2] := UpperCase(S[2])[1]; if Length(S) > 1 then S[2] := UpperCase(S[2])[1];
end; end;
AResult := PascalizePointer(AResult, '^' + S); AResult := PascalizePointer(AResult, '^' + S);
end
else AResult := PascalizePointer(AResult);
end; end;
end; end;