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

fix char literals

This commit is contained in:
Basile Burg 2014-12-01 00:51:40 +01:00
parent bd38a06383
commit 7311c9a727
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/ce_d2syn.pas
View File

@ -703,13 +703,18 @@ begin
if fCurrRange.rangeKinds = [] then if readDelim(reader, fTokStop, #39) then
begin
fTokKind := tkStrng;
while reader^ <> #39 do
while true do
begin
readerNext;
if reader[0..1] = '\'#39 then
begin
readerNext;
readerNext;
end;
if reader^ = #10 then
exit;
if reader^ = '\' then
readerNext;
if reader^ = #39 then
break;
readerNext;
end;
readerNext;
exit;