Test suite results for test file webtbs/tw2668.pp

Test run data :

Test file "webtbs/tw2668.pp" information:

t_id 976
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934958.

Source:

{ %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.

Link to SVN view of webtbs/tw2668.pp source.