sysdeps/i386/fpu/s_floorf.S

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  */
   5
   6 #include <machine/asm.h>
   7
   8 RCSID("$NetBSD: s_floorf.S,v 1.3 1995/05/09 00:04:32 jtc Exp $")
   9
  10 ENTRY(__floorf)
  11         flds    4(%esp)
  12         subl    $32,%esp
  13         cfi_adjust_cfa_offset (32)
  14
  15         fnstenv 4(%esp)                 /* store fpu environment */
  16
  17         /* We use here %edx although only the low 1 bits are defined.
  18            But none of the operations should care and they are faster
  19            than the 16 bit operations.  */
  20         movl    $0x400,%edx             /* round towards -oo */
  21         orl     4(%esp),%edx
  22         andl    $0xf7ff,%edx
  23         movl    %edx,(%esp)
  24         fldcw   (%esp)                  /* load modified control word */
  25
  26         frndint                         /* round */
  27
  28         fldenv  4(%esp)                 /* restore original environment */
  29
  30         addl    $32,%esp
  31         cfi_adjust_cfa_offset (-32)
  32         ret
  33 END (__floorf)
  34 weak_alias (__floorf, floorf)