paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:50:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
florian 1999-12-18 19:59:23 +00:00
parent 8ae86c6d2b
commit 2d887a07ee
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/ts/ts010027.pp Normal file
View File

@ -0,0 +1,25 @@
{$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.