sysdeps/libm-i387/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    $8,%esp
  13
  14         fstcw   4(%esp)                 /* store fpu control word */
  15
  16         /* We use here %edx although only the low 1 bits are defined.
  17            But none of the operations should care and they are faster
  18            than the 16 bit operations.  */
  19         movl    $0x400,%edx             /* round towards -oo */
  20         orl     4(%esp),%edx
  21         andl    $0xf7ff,%edx
  22         movl    %edx,(%esp)
  23         fldcw   (%esp)                  /* load modified control word */
  24
  25         frndint                         /* round */
  26
  27         fldcw   4(%esp)                 /* restore original control word */
  28
  29         addl    $8,%esp
  30         ret
  31 END (__floorf)
  32 weak_alias (__floorf, floorf)