lib/libc/arch/m68k/gen/fpsetround.S

   1 /*      $NetBSD: fpsetround.S,v 1.7 1999/10/25 23:48:11 thorpej Exp $   */
   2
   3 /*
   4  * Written by J.T. Conklin, Apr 6, 1995
   5  * Public Domain.
   6  */
   7
   8 #include <machine/asm.h>
   9
  10 #ifdef WEAK_ALIAS
  11 WEAK_ALIAS(fpsetround, _fpsetround)
  12 ENTRY(_fpsetround)
  13 #else
  14 ENTRY(fpsetround)
  15 #endif
  16         movel %d2,%sp@-
  17         fmovel %fpcr,%d1
  18         movel %sp@(8),%d2
  19         bfextu %d1{#26,#2},%d0
  20         bfins %d2,%d1{#26:#2}
  21         movel %sp@+,%d2
  22         fmovel %d1,%fpcr
  23         rts