paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 15:39:40 +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} {$define FPC_SYSTEM_HAS_FRAC}
function fpc_frac_real(d : ValReal) : ValReal;assembler;compilerproc; function fpc_frac_real(d : ValReal) : ValReal;assembler;compilerproc;
asm asm
subl $16,%esp subl $4,%esp
fnstcw -4(%ebp) fnstcw (%esp)
fwait fwait
movw -4(%ebp),%cx movw (%esp),%cx
orw $0x0f00,%cx orw $0x0f00,(%esp)
movw %cx,-8(%ebp) fldcw (%esp)
fldcw -8(%ebp)
fldt d fldt d
frndint frndint
fldt d fldt d
fsub %st(1),%st fsub %st(1),%st
fstp %st(1) fstp %st(1)
fldcw -4(%ebp) movw %cx,(%esp)
fldcw (%esp)
end; end;
{$define FPC_SYSTEM_HAS_INT} {$define FPC_SYSTEM_HAS_INT}
function fpc_int_real(d : ValReal) : ValReal;assembler;compilerproc; function fpc_int_real(d : ValReal) : ValReal;assembler;compilerproc;
asm asm
subl $16,%esp subl $4,%esp
fnstcw -4(%ebp) fnstcw (%esp)
fwait fwait
movw -4(%ebp),%cx movw (%esp),%cx
orw $0x0f00,%cx orw $0x0f00,(%esp)
movw %cx,-8(%ebp) fldcw (%esp)
fldcw -8(%ebp)
fwait fwait
fldt d fldt d
frndint frndint
fwait fwait
fldcw -4(%ebp) movw %cx,(%esp)
fldcw (%esp)
end; end;