sysdeps/libm-i387/s_ilogbl.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(__ilogbl)
  12         pushl   %ebp
  13         movl    %esp,%ebp
  14         subl    $4,%esp
  15
  16         fldt    8(%ebp)
  17         fxtract
  18
  19         fistpl  -4(%ebp)
  20         movl    -4(%ebp),%eax
  21
  22         leave
  23         ret
  24 END (__ilogbl)
  25 weak_alias (__ilogbl, ilogbl)