+ Added on florians request

tests/webtbs/tw2668.pp

@@ -0,0 +1,33 @@
+{ %version=1.1 }
+{ Source provided for Free Pascal Bug Report 2668 }
+{ Submitted by "Marco" on  2003-09-06 }
+{ e-mail: [email protected] }
+
+{$MODE DELPHI} {$ASMMODE INTEL}
+
+type
+  TFloatingPointClass =
+   (
+    fpZero,     // zero
+    fpNormal,   // normal finite <> 0
+    fpDenormal, // denormalized finite
+    fpInfinite, // infinite
+    fpNaN,      // not a number
+    fpInvalid   // unsupported floating point format
+   );
+
+const
+  FPClasses: array [0..5] of TFloatingPointClass =
+   (
+    fpInvalid,
+    fpNaN,
+    fpNormal,
+    fpInfinite,
+    fpZero,
+    fpDenormal
+   );
+
+asm
+        MOVZX   EAX, TFloatingPointClass(FPClasses[EDX])
+        MOVZX   EAX, TFloatingPointClass([ECX].FPClasses[EDX])
+end.