paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 17:49:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

GdbmiDebugger: Fix formatting result value / broken somewhere in recent "string speedup" changes

Browse Source 
git-svn-id: trunk@64742 -
This commit is contained in:
martin 2021-03-03 20:13:24 +00:00
parent 20bd46fcf7
commit 3205592cba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -14137,7 +14137,7 @@ var
Val(addrtxt, addr, e); Val(addrtxt, addr, e);
if e <> 0 then if e <> 0 then
Exit; Exit;
//AnExpression := Lowercase(ResultInfo.TypeName); AnExpression := Lowercase(ResultInfo.TypeName);
case StringCase(ResultInfo.TypeName, case StringCase(ResultInfo.TypeName,
['char', 'character', 'ansistring', '__vtbl_ptr_type', ['char', 'character', 'ansistring', '__vtbl_ptr_type',
'wchar', 'widechar', 'widestring', 'unicodestring', 'wchar', 'widechar', 'widestring', 'unicodestring',