xref: /netbsd-src/lib/libm/arch/alpha/lrint.S (revision bdc22b2e01993381dcefeff2bc9b56ca75a4235c)
1/* $NetBSD: lrint.S,v 1.3 2004/10/13 15:18:31 drochner Exp $ */
2
3/*
4 * Written by Matthias Drochner <drochner@NetBSD.org>.
5 * Public domain.
6 */
7
8#include <machine/asm.h>
9
10LEAF(lrint, 1)
11	cvttq fa0,ft0
12#if 0
13	ftoit ft0,v0
14#else
15	lda sp,-8(sp)
16	stt ft0,0(sp)
17	ldq v0,0(sp)
18	lda sp,8(sp)
19#endif
20	ret
21END(lrint)
22