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

+ i8086 asm implementation of fpc_trunc_real, based on the i386 version. Fixes

Browse Source 
i8086 compilation after r26122.

git-svn-id: trunk@26125 -
This commit is contained in:
nickysn 2013-11-24 02:00:57 +00:00
parent ba89914471
commit 6cd62437f9
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/i8086/math.inc
View File

@ -134,3 +134,22 @@
fldcw [bp-2]
end;
{$define FPC_SYSTEM_HAS_TRUNC}
function fpc_trunc_real(d : ValReal) : int64;assembler;compilerproc;
asm
sub sp, 10
fld tbyte [d]
fnstcw [bp-10]
mov cx, [bp-10]
or word [bp-10], $0f00
fldcw [bp-10]
mov [bp-10], cx
fistp qword [bp-8]
fldcw [bp-10]
fwait
mov dx, [bp-8]
mov cx, [bp-6]
mov bx, [bp-4]
mov ax, [bp-2]
end;