sysdeps/libm-i387/s_floorl.S

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Changes for long double by Ulrich Drepper <drepper@cygnus.com>
   4  * Public domain.
   5  */
   6
   7 #include <machine/asm.h>
   8
   9 RCSID("$NetBSD: $")
  10
  11 ENTRY(__floorl)
  12         fldt    4(%esp)
  13         subl    $8,%esp
  14
  15         fstcw   4(%esp)                 /* store fpu control word */
  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         fldcw   4(%esp)                 /* restore original control word */
  29
  30         addl    $8,%esp
  31         ret
  32 END (__floorl)
  33 weak_alias (__floorl, floorl)