Test suite results for test file tbs/tb0322.pp

Test run data :

Test file "tbs/tb0322.pp" information:

t_id 542
t_cpu i386
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 934983.

Source:

{ %CPU=i386 }
{$IFDEF FPC}
{$ASMMODE INTEL}
{$ENDIF}
{$N+}

FUNCTION Floor(M2:Comp):LONGINT;assembler;

VAR X : COMP;
    X2 : LONGINT;
    X3 : Double;
    s : single;

ASM
        FLD     QWord Ptr X                  // Here S_IL must be changed to
                                             // S_FL, i.e. the compiler must generate
                                             // fldl "X" instead of fldq "X" which is wrong
        fld     X2                                                      // No mem64, so no problem
        FLD     QWord Ptr X3                 // This one goes wrong under AS
        FilD     QWord Ptr X                         // This one translates to fildq and is accepted?
        fild     X2                                                  // No mem64, so no problem
        FiLD     QWord Ptr X3                // This one translates to fildq and is accepted?
end;

BEGIN
END.

Link to SVN view of tbs/tb0322.pp source.