|
|
@@ -1,33 +0,0 @@
|
|
|
-{ %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.
|
florian