t_id
976
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=4 Percentage= 8.00
Skipped=46 Percentage= 92.00
{ %version=1.1 } { Source provided for Free Pascal Bug Report 2668 } { Submitted by "Marco" on 2003-09-06 } { e-mail: marco+bugs@freepascal.org } {$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.