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;
while true do
begin
if reader[0..1] = '\'#39 then
if reader^ = '\' then
begin
readerNext;
readerNext;