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: simplify output for ^char values

Browse Source 
git-svn-id: trunk@23006 -
This commit is contained in:
paul 2009-12-06 16:10:59 +00:00
parent fdb1f1236c
commit 81c487bc7c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/gdbmidebugger.pp
View File

@ -2308,8 +2308,8 @@ begin
if e <> 0 then Exit;
S := Lowercase(ResultInfo.TypeName);
case StringCase(S, ['character', 'ansistring', '__vtbl_ptr_type', 'wchar']) of
0, 1: begin
case StringCase(S, ['char', 'character', 'ansistring', '__vtbl_ptr_type', 'wchar']) of
0, 1, 2: begin
if Addr = 0
then
AResult := ''''''
@ -2317,7 +2317,7 @@ begin
AResult := MakePrintable(GetText(Addr));
PrintableString := AResult;
end;
2: begin
3: begin
if Addr = 0
then AResult := 'nil'
else begin
@ -2326,7 +2326,7 @@ begin
AResult := 'class of ' + S + ' ' + AResult;
end;
end;
3: begin
4: begin
// widestring handling
if Addr = 0
then AResult := ''''''