lib/libm/arch/alpha/lrint.S

   1 /* $NetBSD: lrint.S,v 1.2 2004/07/02 10:17:23 drochner Exp $ */
   2
   3 /*
   4  * Written by Matthias Drochner <drochner@NetBSD.org>.
   5  * Public domain.
   6  */
   7
   8 #include <machine/asm.h>
   9
  10 LEAF(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
  21 END(lrint)