fix, char literal escape

This commit is contained in:
Basile Burg 2014-12-03 19:11:07 +01:00
parent 7807b0c9e6
commit 91e7cfe503
1 changed files with 1 additions and 1 deletions

View File

@ -709,7 +709,7 @@ begin
fTokKind := tkStrng; fTokKind := tkStrng;
while true do while true do
begin begin
if reader[0..1] = '\'#39 then if reader^ = '\' then
begin begin
readerNext; readerNext;
readerNext; readerNext;