From 2594bcce6777014f1fc6c54f4dbd4d31646137eb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 23 Oct 2003 15:39:52 +0000
Subject: [PATCH]   * another ugly hack

---
 tests/webtbs/tw2668.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/webtbs/tw2668.pp b/tests/webtbs/tw2668.pp
index 297306d59f..1fe655680d 100644
--- a/tests/webtbs/tw2668.pp
+++ b/tests/webtbs/tw2668.pp
@@ -3,7 +3,7 @@
 { Submitted by "Marco" on  2003-09-06 }
 { e-mail: marco+bugs@freepascal.org }
 
-{$MODE DELPHI} {$ASMMODE INTEL}
+{$ifdef fpc}{$MODE DELPHI} {$ASMMODE INTEL} {$endif}
 
 type
   TFloatingPointClass =
@@ -30,4 +30,5 @@ const
 asm
         MOVZX   EAX, TFloatingPointClass(FPClasses[EDX])
         MOVZX   EAX, TFloatingPointClass([ECX].FPClasses[EDX])
+        MOVZX   EAX, TFloatingPointClass([ECX].1[EDX])
 end.