Disable checking of default code page for cross-compilation configurations

git-svn-id: trunk@38978 -

tests/test/tcpstr19.pp

@@ -51,6 +51,8 @@ begin
   if StringCodePage(Copy(UTF8Encode('Test'), 1, 2)) <> CP_UTF8 then
     halt(3);
   R := 'Test';
+{$if not defined(FPC_CROSSCOMPILING) and not defined(FPC_CPUCROSSCOMPILING)}
   if StringCodePage(R) <> DefaultSystemCodePage then
     halt(4);
+{$endif}
 end.

tests/test/tcpstr9.pp

@@ -36,11 +36,13 @@ uses
 begin
   // this test can be only run with the compiler built right now on the
   // same system
+{$if not defined(FPC_CROSSCOMPILING) and not defined(FPC_CPUCROSSCOMPILING)}
   if StringCodePage(AnsiString('test')) <> DefaultSystemCodePage then
   begin
     WriteLn(StringCodePage(AnsiString('test')), ' <> ', DefaultSystemCodePage);
     halt(1);
   end;
+{$endif}
   Writeln('ok');
 end.
 

tests/test/units/fpwidestring/tcpstr9fpwidestring.pp

@@ -8,11 +8,13 @@ uses
 begin
   // this test can be only run with the compiler built right now on the
   // same system
+{$if not defined(FPC_CROSSCOMPILING) and not defined(FPC_CPUCROSSCOMPILING)}
   if StringCodePage(AnsiString('test')) <> DefaultSystemCodePage then
   begin
     WriteLn(StringCodePage(AnsiString('test')), ' <> ', DefaultSystemCodePage);
     halt(1);
   end;
+{$endif}
   Writeln('ok');
 end.