paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 19:43:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: temporary workaround to display widestrings (actually pwidechar^)

Browse Source 
git-svn-id: trunk@59538 -
This commit is contained in:
martin 2018-11-13 11:48:38 +00:00
parent 7b6001dd2b
commit 0368d8e0d8
1 changed files with 5 additions and 1 deletions

6
components/fpdebug/fpdbgdwarf.pas
View File

@ -1941,7 +1941,10 @@ begin
while (i > 0) and (not MemManager.ReadMemory(DataAddress, 2000, @Result[1])) do
i := i div 2;
SetLength(Result,i);
i := pos(#0, Result);
if t.Size = 2 then // widestring
i := pos(#0#0, Result)
else
i := pos(#0, Result);
if i > 0 then
SetLength(Result,i-1);
exit;
@ -3279,6 +3282,7 @@ begin
DW_ATE_signed_char: SetKind(skChar);
DW_ATE_unsigned: SetKind(skCardinal);
DW_ATE_unsigned_char: SetKind(skChar);
DW_ATE_numeric_string:SetKind(skChar); // temporary for widestring
else
begin
DebugLn(FPDBG_DWARF_WARNINGS, ['TFpDwarfSymbolTypeBasic.KindNeeded: Unknown encoding ', DwarfBaseTypeEncodingToString(Encoding), ' for ', DwarfTagToString(InformationEntry.AbbrevTag)]);