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

* character ASCII 127 should not be treated as invalid result of Unicode to ansistring conversion because it is used as replacement character for characters missing in the target codepage by the native OS/2 Unicode support routines

Browse Source 
git-svn-id: trunk@29706 -
This commit is contained in:
Tomas Hajny 2015-02-15 14:31:36 +00:00
parent 9693b37c1a
commit 7049e40668
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/webtbs/tw8144.pp
View File

@ -2,7 +2,13 @@
function DoCheck(Key:WideChar):boolean;
begin
DoCheck:=(Key in [WideChar(#0), WideChar(#8), WideChar(#10),
WideChar(#13), WideChar(#27), WideChar(#127)]);
WideChar(#13), WideChar(#27)
{$IFNDEF OS2}
{ OS/2 Unicode support uses #127 as replacement character for translation
of characters which do not exist in the current system codepage. }
, WideChar(#127)
{$ENDIF OS2}
]);
end;
var