mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 18:47:54 +02:00
27 lines
914 B
ObjectPascal
27 lines
914 B
ObjectPascal
{ %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.
|