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

FpDebug: Fix QuoteText

Browse Source 
git-svn-id: trunk@63885 -
This commit is contained in:
martin 2020-09-17 23:04:18 +00:00
parent b842bf6451
commit 47bbc252d8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpdebug/fppascalbuilder.pas
View File

@ -649,7 +649,7 @@ begin
RPos^ := c; inc(RPos);
RPos^ := SPos[1]; inc(RPos);
RPos^ := SPos[2]; inc(RPos);
inc(SPos, 2);
inc(SPos, 3);
end;
#240..#247: begin
if ((Byte(SPos[1]) and $C0) <> $80) or ((Byte(SPos[2]) and $C0) <> $80) or
@ -660,7 +660,7 @@ begin
RPos^ := SPos[1]; inc(RPos);
RPos^ := SPos[2]; inc(RPos);
RPos^ := SPos[3]; inc(RPos);
inc(SPos, 3);
inc(SPos, 4);
end;
#0: begin
if (SPos < SEnd) then
@ -677,7 +677,7 @@ begin
end;
c := SPos^;
until False;;
until False;
if RPos = QPos then
dec(RPos)