paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 20:30:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed case of widechar

Browse Source 
git-svn-id: trunk@41221 -
This commit is contained in:
Mattias Gaertner 2019-02-04 15:08:50 +00:00
parent 15fc7b3510
commit b47c58dddc
2 changed files with 6 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

@ -7902,9 +7902,9 @@ type
exit(AddString(ExprEvaluator.GetUnicodeStr(TResEvalString(Value).S,Expr)))
else
begin
if fExprEvaluator.StringToOrd(Value,nil)>$ffff then
RangeStart:=fExprEvaluator.StringToOrd(Value,nil);
if RangeStart>$ffff then
exit(false);
RangeStart:=ord(TResEvalString(Value).S[1]);
RangeEnd:=RangeStart;
end;
{$endif}

4
packages/pastojs/tests/tcmodules.pas
View File

@ -7789,6 +7789,7 @@ begin
' case s of',
' ''foo'': s:=h;',
' ''a''..''z'': h:=s;',
' ''ў'', ''ё'': ;',
' ''Б''..''Я'': ;',
' end;',
'']);
@ -7804,6 +7805,7 @@ begin
' $mod.s = $mod.h}',
' else if (($tmp1.length === 1) && ($tmp1 >= "a") && ($tmp1 <= "z")) {',
' $mod.h = $mod.s}',
' else if (($tmp1 === "ў") || ($tmp1 === "ё")) {}',
' else if (($tmp1.length === 1) && ($tmp1 >= "Б") && ($tmp1 <= "Я")) ;',
'']));
end;
@ -7817,6 +7819,7 @@ begin
' case s of',
' ''a''..''z'': h:=s;',
' ''ä'': ;',
' ''ў'', ''ё'': ;',
' ''Б''..''Я'': ;',
' end;',
'']);
@ -7831,6 +7834,7 @@ begin
'if (($tmp1 >= "a") && ($tmp1 <= "z")) {',
' $mod.h = $mod.s}',
' else if ($tmp1 === "ä") {}',
' else if (($tmp1 === "ў") || ($tmp1 === "ё")) {}',
' else if (($tmp1 >= "Б") && ($tmp1 <= "Я")) ;',
'']));
end;