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

debugger: don't show 'record ShortString' for shortstrings since this is debug info implementation details

Browse Source 
git-svn-id: trunk@22990 -
This commit is contained in:
paul 2009-12-06 06:17:30 +00:00
parent 6afed917e6
commit dc5c58c871
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/gdbmidebugger.pp
View File

@ -2369,6 +2369,9 @@ begin
if (ResultInfo.TypeName = 'Variant') or
(ResultInfo.TypeName = 'VARIANT') then
AResult := GetVariantValue(AResult)
else
if (ResultInfo.TypeName = 'ShortString') then
AResult := AResult // don't show 'record ShortString' as this is debug info implementation details
else
AResult := 'record ' + ResultInfo.TypeName + ' '+ AResult;
end;