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

FpDebug: temporary workaround to display widechar

Browse Source 
git-svn-id: trunk@59539 -
This commit is contained in:
martin 2018-11-13 12:17:15 +00:00
parent 0368d8e0d8
commit fa6ae63e30
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgdwarf.pas
View File

@ -1868,6 +1868,9 @@ end;
function TFpDwarfValueChar.GetAsString: AnsiString; function TFpDwarfValueChar.GetAsString: AnsiString;
begin begin
// Can typecast, because of FSize = 1, GetAsCardinal only read one byte // Can typecast, because of FSize = 1, GetAsCardinal only read one byte
if FSize = 2 then
Result := GetAsWideString // temporary workaround for WideChar
else
if FSize <> 1 then if FSize <> 1 then
Result := inherited GetAsString Result := inherited GetAsString
else else
@ -1941,7 +1944,7 @@ begin
while (i > 0) and (not MemManager.ReadMemory(DataAddress, 2000, @Result[1])) do while (i > 0) and (not MemManager.ReadMemory(DataAddress, 2000, @Result[1])) do
i := i div 2; i := i div 2;
SetLength(Result,i); SetLength(Result,i);
if t.Size = 2 then // widestring if t.Size = 2 then // widestring // should be in GetAsWideString;
i := pos(#0#0, Result) i := pos(#0#0, Result)
else else
i := pos(#0, Result); i := pos(#0, Result);