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

   1 /*      $NetBSD: flt_rounds.S,v 1.8 1999/10/25 23:48:10 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         .text
  11         .even
  12 #if 0
  13 /* XXX This is, effectively, an exclusive-or with 1 operation. */
  14 _map:
  15         .byte 1         /* round to nearest */
  16         .byte 0         /* round to zero */
  17         .byte 3         /* round to negative infinity */
  18         .byte 2         /* round to positive infinity */
  19 #endif
  20
  21 ENTRY(__flt_rounds)
  22         fmovel %fpcr,%d0
  23         bfextu %d0{#26:#2},%d0
  24         eorib #1,%d0
  25         rts