Disable checking of default code page for cross-compilation configurations

git-svn-id: trunk@38978 -
This commit is contained in:
pierre 2018-05-11 16:11:27 +00:00
parent e523672c12
commit 8a60f39a14
3 changed files with 6 additions and 0 deletions

View File

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

View File

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

View File

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