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

* tests: On x86_64-android long double is 128-bit. There is no support for 128-bit floats in FPC yet. So disable long double tests for x86_64-android for now.

Browse Source 
git-svn-id: trunk@39970 -
This commit is contained in:
yury 2018-10-18 12:31:23 +00:00
parent 4643a0b1ff
commit aa6f6423b2
5 changed files with 39 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/cg/tcalext.pp
View File

@ -29,6 +29,11 @@ uses strings,ctypes;
{$define test_longdouble}
{$endif}
{$if defined(cpux86_64) and defined(android) and (sizeof(clongdouble)<>16)}
// On x86_64-android long double is 128-bit. There is no support for 128-bit floats in FPC yet.
{$undef test_longdouble}
{$endif}
{ Use C alignment of records }
{$PACKRECORDS C}
const

35
tests/test/cg/tcalext6.pp
View File

@ -10,6 +10,17 @@
program calext6;
{$MODE DELPHI}
uses ctypes;
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$define test_longdouble}
{$endif}
{$if defined(cpux86_64) and defined(android) and (sizeof(clongdouble)<>16)}
// On x86_64-android long double is 128-bit. There is no support for 128-bit floats in FPC yet.
{$undef test_longdouble}
{$endif}
{ requires libgcc for the C functions }
{$ifdef FPUSOFT}
{$define NO_FLOAT}
@ -20,14 +31,6 @@ program calext6;
{$linklib gcc}
{$endif}
{$ifdef VER2_4}
uses
ctypes;
type
cextended = clongdouble;
{$endif VER2_4}
type
int8_t = shortint;
pint8_t = ^int8_t;
@ -227,7 +230,7 @@ begin
WriteLn('Failed');
end;
{$if defined(FPC_HAS_TYPE_EXTENDED) and (sizeof(double)<>sizeof(cextended))}
{$if defined(test_longdouble) and (sizeof(double)<>sizeof(cextended))}
procedure verify(val1, val2 : cextended; nr : Integer); overload;
begin
success := success and (val1 = val2);
@ -237,7 +240,7 @@ begin
else
WriteLn('Failed');
end;
{$endif FPC_HAS_TYPE_EXTENDED}
{$endif test_longdouble}
function check1(s : struct1) : single;
begin
@ -351,7 +354,7 @@ function pass14(s : struct14; b: byte) : int64_t; cdecl; external;
function pass15(s : struct15; b: byte) : int64_t; cdecl; external;
function pass16(s : struct16; b: byte) : single; cdecl; external;
function pass17(s : struct17; b: byte) : single; cdecl; external;
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$ifdef test_longdouble}
function pass31(s : struct31; b: byte; var ss: single) : cextended; cdecl; external;
{$endif}
@ -372,7 +375,7 @@ function pass14a(b: byte; s : struct14) : struct14; cdecl; external;
function pass15a(b: byte; s : struct15) : struct15; cdecl; external;
function pass16a(b: byte; s : struct16) : struct16; cdecl; external;
function pass17a(b: byte; s : struct17) : struct17; cdecl; external;
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$ifdef test_longdouble}
function pass31a(b: byte; s : struct31) : struct31; cdecl; external;
{$endif}
@ -536,7 +539,7 @@ begin
{$ifdef UseStackCheck}
CheckStack;
{$endif UseStackCheck}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$ifdef test_longdouble}
verify(pass31(s31,31,ss), check31(s31), 31);
{$ifdef UseStackCheck}
CheckStack;
@ -615,7 +618,7 @@ begin
{$ifdef UseStackCheck}
CheckStack;
{$endif UseStackCheck}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$ifdef test_longdouble}
verify(check31(pass31a(31,s31)), check31(s31), 71);
{$ifdef UseStackCheck}
CheckStack;
@ -702,7 +705,7 @@ begin
{$ifdef UseStackCheck}
CheckStack;
{$endif UseStackCheck}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$ifdef test_longdouble}
verify(pass31a(31,s31).v1, s31.v1, 101);
{$ifdef UseStackCheck}
CheckStack;
@ -932,7 +935,7 @@ begin
{$ifdef UseStackCheck}
CheckStack;
{$endif UseStackCheck}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$ifdef test_longdouble}
{$ifdef TestFPUStack }
for i:=1 to 12 do
{$endif TestFPUStack }

5
tests/test/cg/tprintf.pp
View File

@ -15,6 +15,11 @@ uses
{$undef TEST_EXTENDED}
{$endif beos}
{$if defined(cpux86_64) and defined(android) and (sizeof(clongdouble)<>16)}
// On x86_64-android long double is 128-bit. There is no support for 128-bit floats in FPC yet.
{$undef TEST_EXTENDED}
{$endif}
{$ifdef WINDOWS}
const
{$ifdef wince}

5
tests/test/cg/tprintf2.pp
View File

@ -15,6 +15,11 @@ uses
{$undef TEST_EXTENDED}
{$endif beos}
{$if defined(cpux86_64) and defined(android) and (sizeof(clongdouble)<>16)}
// On x86_64-android long double is 128-bit. There is no support for 128-bit floats in FPC yet.
{$undef TEST_EXTENDED}
{$endif}
{$ifdef WINDOWS}
const
{$ifdef wince}

5
tests/test/cg/tprintf3.pp
View File

@ -16,6 +16,11 @@ uses
{$undef TEST_EXTENDED}
{$endif beos}
{$if defined(cpux86_64) and defined(android) and (sizeof(clongdouble)<>16)}
// On x86_64-android long double is 128-bit. There is no support for 128-bit floats in FPC yet.
{$undef TEST_EXTENDED}
{$endif}
{$ifdef WINDOWS}
{ the msvcrt.dll doesn't support extended because MS-C doesn't }
{$undef TEST_EXTENDED}