From d4f033bb7812324e0f74b720e475ba80518d1233 Mon Sep 17 00:00:00 2001
From: Vincent Snijders <vincents@freepascal.org>
Date: Sat, 14 Jul 2007 06:37:46 +0000
Subject: [PATCH] * fixed test
git-svn-id: trunk@8043 -
---
tests/webtbs/tw2129.pp | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tests/webtbs/tw2129.pp b/tests/webtbs/tw2129.pp
index 627e502677..478ea84ba7 100644
--- a/tests/webtbs/tw2129.pp
+++ b/tests/webtbs/tw2129.pp
@@ -36,14 +36,14 @@ begin
comp1:=swap(comp1);
{$endif FPC_DOUBLE_HILO_SWAPPED}
str(comp1,s);
-{$ifdef FPC_HAS_EXTENDED}
+{$ifdef FPC_HAS_TYPE_EXTENDED}
if s<>'-6.53142228756617E+0018' then
-{$else FPC_HAS_EXTENDED}
+{$else FPC_HAS_TYPE_EXTENDED}
{ this constant has been verified and is correct (FK) }
{ doubles have slightly different precision on processors <> x86, because }
{ intermediate calculations are not performed in 80 bit there (JM) }
if Copy(s,1,Length(s)-1)<>'-653142228756617021' then
-{$endif FPC_HAS_EXTENDED}
+{$endif FPC_HAS_TYPE_EXTENDED}
begin
writeln(s);
writeln('error');