forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

sxsyn, multi line string literal problem if a line starts with `§`

This commit is contained in:
Basile Burg 2021-11-01 02:46:28 +01:00
parent d4b700fbbc
commit 2428994828
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/u_sxsyn.pas
View File

@ -718,8 +718,14 @@ begin
if fTokStop > llen then if fTokStop > llen then
exit; exit;
// continue partial multi-line ranges
if fCurrRange.isNotAssigned then if fCurrRange.isNotAssigned then
fCurrRange := TSynSxSynRange.Create(nil); fCurrRange := TSynSxSynRange.Create(nil)
else case fCurrRange.rangeKind of
TRangeKind.rkString1: begin lexStringLiteral(); exit; end;
TRangeKind.rkString2: begin lexRawStringLiteral(); exit; end;
TRangeKind.rkBlockCom1: begin lexStarComment(); exit; end;
end;
// special lines // special lines
if (fLineBuf.length > 1) then if (fLineBuf.length > 1) then
@ -738,13 +744,6 @@ begin
end; end;
end; end;
// continue partial multi-line ranges
case fCurrRange.rangeKind of
TRangeKind.rkString1: begin lexStringLiteral(); exit; end;
TRangeKind.rkString2: begin lexRawStringLiteral(); exit; end;
TRangeKind.rkBlockCom1: begin lexStarComment(); exit; end;
end;
case fLineBuf[fTokStop] of case fLineBuf[fTokStop] of
#0 .. #10, #13, #32: #0 .. #10, #13, #32:
begin begin