paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed IsCharLiteral in pas2js

Browse Source 
git-svn-id: trunk@40150 -
This commit is contained in:
Mattias Gaertner 2018-11-01 13:58:01 +00:00
parent f9e426c45a
commit 681016370e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pasresolver.pp
View File

@ -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