xref: /netbsd/lib/libm/arch/alpha/lrint.S (revision 6550d01e)
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