nsz Git - musl/blob - src/math/i386/expm1.s

   1 .global expm1f
   2 .type expm1f,@function
   3 expm1f:
   4         flds 4(%esp)
   5         jmp 1f
   6
   7 .global expm1l
   8 .type expm1l,@function
   9 expm1l:
  10         fldt 4(%esp)
  11         jmp 1f
  12
  13 .global expm1
  14 .type expm1,@function
  15 expm1:
  16         fldl 4(%esp)
  17 1:      fldl2e
  18         fmulp
  19         fld %st(0)
  20         frndint
  21         fldz
  22         fcompi
  23         jnz 1f
  24         fstp %st(0)
  25         f2xm1
  26         ret
  27 1:      fxch %st(1)
  28         fsub %st(1)
  29         f2xm1
  30         fld1
  31         faddp
  32         fscale
  33         fld1
  34         fsubrp
  35         fstp %st(1)
  36         ret