* 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

git-svn-id: trunk@29706 -

tests/webtbs/tw8144.pp

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