mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-07 01:05:56 +02:00
Disable checking of default code page for cross-compilation configurations
git-svn-id: trunk@38978 -
This commit is contained in:
parent
e523672c12
commit
8a60f39a14
@ -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.
|
||||
|
@ -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.
|
||||
|
||||
|
@ -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.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user