paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 03:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Disable checking of default code page for cross-compilation configurations

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tcpstr19.pp
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.

2
tests/test/tcpstr9.pp
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.

2
tests/test/units/fpwidestring/tcpstr9fpwidestring.pp
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.