paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 23:05:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed warnings about EBP based access.

Browse Source 
git-svn-id: trunk@9111 -
This commit is contained in:
yury 2007-11-03 17:09:39 +00:00
parent 39463b45ad
commit 7230661978
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
rtl/i386/math.inc
View File

@ -151,37 +151,37 @@
{$define FPC_SYSTEM_HAS_FRAC}
function fpc_frac_real(d : ValReal) : ValReal;assembler;compilerproc;
asm
subl $16,%esp
fnstcw -4(%ebp)
subl $4,%esp
fnstcw (%esp)
fwait
movw -4(%ebp),%cx
orw $0x0f00,%cx
movw %cx,-8(%ebp)
fldcw -8(%ebp)
movw (%esp),%cx
orw $0x0f00,(%esp)
fldcw (%esp)
fldt d
frndint
fldt d
fsub %st(1),%st
fstp %st(1)
fldcw -4(%ebp)
movw %cx,(%esp)
fldcw (%esp)
end;
{$define FPC_SYSTEM_HAS_INT}
function fpc_int_real(d : ValReal) : ValReal;assembler;compilerproc;
asm
subl $16,%esp
fnstcw -4(%ebp)
subl $4,%esp
fnstcw (%esp)
fwait
movw -4(%ebp),%cx
orw $0x0f00,%cx
movw %cx,-8(%ebp)
fldcw -8(%ebp)
movw (%esp),%cx
orw $0x0f00,(%esp)
fldcw (%esp)
fwait
fldt d
frndint
fwait
fldcw -4(%ebp)
movw %cx,(%esp)
fldcw (%esp)
end;