1/*
2 * Public domain.
3 */
4
5#include <libm-alias-ldouble.h>
6#include <machine/asm.h>
7
8ENTRY(__nearbyintl)
9	fldt	4(%esp)
10	subl	$32, %esp
11	cfi_adjust_cfa_offset (32)
12	fnstenv	4(%esp)
13	frndint
14	fnstsw
15	andl	$0x1, %eax
16	orl	%eax, 8(%esp)
17	fldenv	4(%esp)
18	addl	$32, %esp
19	cfi_adjust_cfa_offset (-32)
20	ret
21END (__nearbyintl)
22libm_alias_ldouble (__nearbyint, nearbyint)
23