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

* disabled long double testing again for non-FPC_HAS_TYPE_EXTENDED, since

Browse Source 
no one is working on long double support for non-x86 and having this test
    fail all the time can mask the introduction of other (more important)
    cdecl bugs

git-svn-id: trunk@8393 -
This commit is contained in:
Jonas Maebe 2007-09-07 10:53:31 +00:00
parent b546309ca0
commit 2fa5d998c3
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,6 +24,11 @@
uses strings,ctypes; uses strings,ctypes;
{$L ctest.o} {$L ctest.o}
{$endif USE_PASCAL_OBJECT} {$endif USE_PASCAL_OBJECT}
{$ifdef FPC_HAS_TYPE_EXTENDED}
{$define test_longdouble}
{$endif}
{ Use C alignment of records } { Use C alignment of records }
{$PACKRECORDS C} {$PACKRECORDS C}
const const
@ -299,6 +304,7 @@ begin
if trunc(global_double) <> trunc(RESULT_DOUBLE) then if trunc(global_double) <> trunc(RESULT_DOUBLE) then
failed := true; failed := true;
{$ifdef test_longdouble}
clear_values; clear_values;
clear_globals; clear_globals;
@ -306,6 +312,7 @@ begin
test_param_longdouble(value_long_double); test_param_longdouble(value_long_double);
if trunc(global_long_double) <> trunc(RESULT_LONGDOUBLE) then if trunc(global_long_double) <> trunc(RESULT_LONGDOUBLE) then
failed := true; failed := true;
{$endif}
{ var parameter testing } { var parameter testing }
clear_values; clear_values;
@ -397,6 +404,7 @@ begin
clear_values; clear_values;
clear_globals; clear_globals;
{$ifdef test_longdouble}
array_long_double[1] := RESULT_LONGDOUBLE; array_long_double[1] := RESULT_LONGDOUBLE;
test_array_param_longdouble(array_long_double); test_array_param_longdouble(array_long_double);
if trunc(global_long_double) <> trunc(RESULT_LONGDOUBLE) then if trunc(global_long_double) <> trunc(RESULT_LONGDOUBLE) then
@ -410,6 +418,7 @@ begin
{$endif cpui386} {$endif cpui386}
failed := true; failed := true;
end; end;
{$endif}
If failed then If failed then
fail fail
@ -493,7 +502,7 @@ begin
clear_values; clear_values;
clear_globals; clear_globals;
{$ifdef FPC_HAS_TYPE_EXTENDED} {$ifdef test_longdouble}}
value_u8bit := RESULT_U8BIT; value_u8bit := RESULT_U8BIT;
value_long_double := RESULT_LONGDOUBLE; value_long_double := RESULT_LONGDOUBLE;
test_param_mixed_long_double(value_long_double, value_u8bit); test_param_mixed_long_double(value_long_double, value_u8bit);
@ -501,7 +510,7 @@ begin
failed := true; failed := true;
if global_u8bit <> RESULT_U8BIT then if global_u8bit <> RESULT_U8BIT then
failed := true; failed := true;
{$endif FPC_HAS_TYPE_EXTENDED} {$endif}
If failed then If failed then
fail fail
@ -722,12 +731,14 @@ begin
if trunc(value_double) <> trunc(RESULT_DOUBLE) then if trunc(value_double) <> trunc(RESULT_DOUBLE) then
failed := true; failed := true;
{$ifdef test_longdouble}
clear_values; clear_values;
clear_globals; clear_globals;
value_long_double := test_function_longdouble; value_long_double := test_function_longdouble;
if trunc(value_long_double) <> trunc(RESULT_LONGDOUBLE) then if trunc(value_long_double) <> trunc(RESULT_LONGDOUBLE) then
failed := true; failed := true;
{$endif}
clear_values; clear_values;
clear_globals; clear_globals;