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

   1 .global log1p
   2 .type log1p,@function
   3 log1p:
   4         mov 8(%esp),%eax
   5         fldln2
   6         and $0x7fffffff,%eax
   7         fldl 4(%esp)
   8         cmp $0x3fd28f00,%eax
   9         ja 1f
  10         cmp $0x00100000,%eax
  11         jb 2f
  12         fyl2xp1
  13         ret
  14 1:      fld1
  15         faddp
  16         fyl2x
  17         ret
  18                 # subnormal x, return x with underflow
  19 2:      fnstsw %ax
  20         and $16,%ax
  21         jnz 1f
  22         fsts 4(%esp)
  23         fstp %st(1)
  24 1:      ret