mirror of git://git.musl-libc.org/musl
asm for remquo
this could perhaps use some additional testing for corner cases, but it seems to be correct.
This commit is contained in:
parent
02db27d9de
commit
27deb53889
|
@ -0,0 +1,41 @@
|
||||||
|
.global remquof
|
||||||
|
.type remquof,@function
|
||||||
|
remquof:
|
||||||
|
mov 12(%esp),%ecx
|
||||||
|
fldl 4(%esp)
|
||||||
|
fldl 8(%esp)
|
||||||
|
jmp 1f
|
||||||
|
|
||||||
|
.global remquol
|
||||||
|
.type remquol,@function
|
||||||
|
remquol:
|
||||||
|
mov 28(%esp),%ecx
|
||||||
|
fldl 4(%esp)
|
||||||
|
fldl 16(%esp)
|
||||||
|
jmp 1f
|
||||||
|
|
||||||
|
.global remquo
|
||||||
|
.type remquo,@function
|
||||||
|
remquo:
|
||||||
|
mov 20(%esp),%ecx
|
||||||
|
fldl 4(%esp)
|
||||||
|
fldl 12(%esp)
|
||||||
|
1: fld %st(1)
|
||||||
|
1: fprem1
|
||||||
|
fnstsw %ax
|
||||||
|
sahf
|
||||||
|
jp 1b
|
||||||
|
fsubr %st(0),%st(2)
|
||||||
|
fxch %st(2)
|
||||||
|
fdivp
|
||||||
|
mov $0x4f000000,%eax
|
||||||
|
mov %eax,4(%esp)
|
||||||
|
flds 4(%esp)
|
||||||
|
fxch %st(1)
|
||||||
|
1: fprem
|
||||||
|
fnstsw %ax
|
||||||
|
sahf
|
||||||
|
jp 1b
|
||||||
|
fistpl (%ecx)
|
||||||
|
fstp %st(0)
|
||||||
|
ret
|
|
@ -0,0 +1 @@
|
||||||
|
# see remquo.s
|
|
@ -0,0 +1 @@
|
||||||
|
# see remquo.s
|
Loading…
Reference in New Issue