t_id
976
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-12950621 | 860205 | True | False | Successfully run |
Record count: 1
{ %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.