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

FpDebug: Fix QuoteWideText => wrong result len

Browse Source
This commit is contained in:
Martin 2022-03-04 00:47:32 +01:00
parent 625e655423
commit 624696270b
1 changed files with 1 additions and 1 deletions

2
components/fpdebug/fppascalbuilder.pas
View File

@ -584,7 +584,7 @@ begin
if (c = #0) and (SPos >= SEnd) then begin
// END OF TEXT
Assert(RPos-1 <= @Result[Length(Result)], 'RPos-1 <= @Result[Length(Result)]');
SetLength(Result, RPos - @Result[1]);
SetLength(Result, RPos - PWideChar(@Result[1]));
exit;
end;