forked from KolibriOS/kolibrios
30 lines
585 B
ArmAsm
30 lines
585 B
ArmAsm
|
/*
|
||
|
|
* Written by J.T. Conklin <jtc@netbsd.org>.
|
||
|
|
* Public domain.
|
||
|
|
* Adapted for use as nearbyint by Ulrich Drepper <drepper@cygnus.com>.
|
||
|
|
*
|
||
|
|
* Removed header file dependency for use in libmingwex.a by
|
||
|
|
* Danny Smith <dannysmith@users.sourceforge.net>
|
||
|
|
*/
|
||
|
|
|
||
|
|
.file "nearbyintf.S"
|
||
|
|
.text
|
||
|
|
.align 4
|
||
|
|
.globl _nearbyintf
|
||
|
|
.def _nearbyintf; .scl 2; .type 32; .endef
|
||
|
|
_nearbyintf:
|
||
|
|
flds 4(%esp)
|
||
|
|
pushl %eax
|
||
|
|
pushl %ecx
|
||
|
|
fnstcw (%esp)
|
||
|
|
movl (%esp), %eax
|
||
|
|
orl $0x20, %eax
|
||
|
|
movl %eax, 4(%esp)
|
||
|
|
fldcw 4(%esp)
|
||
|
|
frndint
|
||
|
|
fclex
|
||
|
|
fldcw (%esp)
|
||
|
|
popl %ecx
|
||
|
|
popl %eax
|
||
|
|
ret
|