xref: /relibc/openlibm/i387/s_truncf.S (revision 00e0e7e5ee49b7bf85f235b7020c19339469eb13)
1/*
2 * Based on code written by J.T. Conklin <jtc@NetBSD.org>.
3 * Public domain.
4 */
5
6#include <i387/bsd_asm.h>
7//__FBSDID("$FreeBSD: src/lib/msun/i387/s_truncf.S,v 1.4 2011/01/07 16:13:12 kib Exp $")
8
9ENTRY(truncf)
10	pushl	%ebp
11	movl	%esp,%ebp
12	subl	$8,%esp
13
14	fstcw	-4(%ebp)		/* store fpu control word */
15	movw	-4(%ebp),%dx
16	orw	$0x0c00,%dx		/* round towards -oo */
17	movw	%dx,-8(%ebp)
18	fldcw	-8(%ebp)		/* load modfied control word */
19
20	flds	8(%ebp)			/* round */
21	frndint
22
23	fldcw	-4(%ebp)		/* restore original control word */
24
25	leave
26	ret
27END(truncf)
28
29
30