From 76dd9b8d445413d22bdd46c78d2f30fcf127fa37 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Thu, 4 Dec 2014 00:21:33 +0100 Subject: [PATCH] fix, double quoted string literal escape --- src/ce_d2syn.pas | 21 ++++++--------------- 1 file changed, 6 insertions(+), 15 deletions(-) diff --git a/src/ce_d2syn.pas b/src/ce_d2syn.pas index bc1cd569..95747736 100644 --- a/src/ce_d2syn.pas +++ b/src/ce_d2syn.pas @@ -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