paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-08 12:39:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger, was returning UnicodeStrings as uppercase

Browse Source 
git-svn-id: trunk@27348 -
This commit is contained in:
jesus 2010-09-13 18:50:39 +00:00
parent 2767314c13
commit 3290f05d67
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
debugger/gdbmidebugger.pp
View File

@ -2590,7 +2590,7 @@ begin
if e <> 0 then Exit; if e <> 0 then Exit;
S := Lowercase(ResultInfo.TypeName); S := Lowercase(ResultInfo.TypeName);
case StringCase(S, ['char', 'character', 'ansistring', '__vtbl_ptr_type', 'wchar']) of case StringCase(S, ['char', 'character', 'ansistring', '__vtbl_ptr_type', 'wchar', 'widechar']) of
0, 1, 2: begin 0, 1, 2: begin
if Addr = 0 if Addr = 0
then then
@ -2608,7 +2608,7 @@ begin
AResult := 'class of ' + S + ' ' + AResult; AResult := 'class of ' + S + ' ' + AResult;
end; end;
end; end;
4: begin 4,5: begin
// widestring handling // widestring handling
if Addr = 0 if Addr = 0
then AResult := '''''' then AResult := ''''''