paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 10:39:30 +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^ := c; inc(RPos);
RPos^ := SPos[1]; inc(RPos); RPos^ := SPos[1]; inc(RPos);
RPos^ := SPos[2]; inc(RPos); RPos^ := SPos[2]; inc(RPos);
inc(SPos, 2); inc(SPos, 3);
end; end;
#240..#247: begin #240..#247: begin
if ((Byte(SPos[1]) and $C0) <> $80) or ((Byte(SPos[2]) and $C0) <> $80) or 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[1]; inc(RPos);
RPos^ := SPos[2]; inc(RPos); RPos^ := SPos[2]; inc(RPos);
RPos^ := SPos[3]; inc(RPos); RPos^ := SPos[3]; inc(RPos);
inc(SPos, 3); inc(SPos, 4);
end; end;
#0: begin #0: begin
if (SPos < SEnd) then if (SPos < SEnd) then
@ -677,7 +677,7 @@ begin
end; end;
c := SPos^; c := SPos^;
until False;; until False;
if RPos = QPos then if RPos = QPos then
dec(RPos) dec(RPos)