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

fix, double quoted string literal escape

This commit is contained in:
Basile Burg 2014-12-04 00:21:33 +01:00
parent 91e7cfe503
commit 76dd9b8d44
1 changed files with 6 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_d2syn.pas
View File

@ -578,16 +578,12 @@ begin
fTokKind := tkStrng;
while(true) do
begin
if not readUntilAmong(reader, fTokStop, stringStopChecks) then
break;
if not readUntilAmong(reader, fTokStop, stringStopChecks) then break;
if (reader^ = '\') then
begin
readerNext;
if readWhile(reader, fTokStop, '\') then
continue;
if reader^ = '"' then if not fCurrRange.rString then
readerNext;
continue;
if fCurrRange.rString then continue;
readerNext;
end
else if reader^ = '"' then
begin
@ -607,16 +603,12 @@ begin
fTokKind := tkStrng;
while(true) do
begin
if not readUntilAmong(reader, fTokStop, stringStopChecks) then
break;
if not readUntilAmong(reader, fTokStop, stringStopChecks) then break;
if reader^ = '\' then
begin
readerNext;
if readWhile(reader, fTokStop, '\') then
continue;
if reader^ = '"' then if not fCurrRange.rString then
readerNext;
continue;
if fCurrRange.rString then continue;
readerNext;
end
else if reader^ = '"' then
begin
@ -724,7 +716,6 @@ begin
exit;
end else readerReset;
// hex litterals
{if readDelim(reader, fTokStop, '0x') then
begin