From 2fa5d998c35006125e85f0b17c1b58b1840f7716 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 7 Sep 2007 10:53:31 +0000
Subject: [PATCH]   * disabled long double testing again for
 non-FPC_HAS_TYPE_EXTENDED, since     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 -
---
 tests/test/cg/tcalext.pp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

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