From 681016370e0977874c269cedfbc4011cfa9ec6d7 Mon Sep 17 00:00:00 2001
From: Mattias Gaertner <nc-gaertnma@netcologne.de>
Date: Thu, 1 Nov 2018 13:58:01 +0000
Subject: [PATCH] fcl-passrc: fixed IsCharLiteral in pas2js

git-svn-id: trunk@40150 -
---
 packages/fcl-passrc/src/pasresolver.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp
index 61baa4eb99..a487ddca41 100644
--- a/packages/fcl-passrc/src/pasresolver.pp
+++ b/packages/fcl-passrc/src/pasresolver.pp
@@ -11283,7 +11283,8 @@ begin
         Result:=btWideChar; // ''''
     #$DC00..#$DFFF: ;
     else
-      Result:=btWideChar;
+      if (l=3) and (Value[3]='''') then
+        Result:=btWideChar; // e.g. 'a'
     end;
     {$endif}
     end;
@@ -16779,7 +16780,6 @@ begin
         else
           {$IFDEF VerbosePasResolver}
           writeln('TPasResolver.CheckAssignResCompatibility ',{$ifdef pas2js}str(LBT){$else}LBT{$ENDIF});
-          writeln('AAA1 TPasResolver.CheckAssignResCompatibility ',str(BaseTypeChar),' ',str(BaseTypeString));
           {$ENDIF}
           RaiseNotYetImplemented(20170417195208,ErrorEl,BaseTypeNames[LBT]);
         end